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I. Purpose 

In order to prcmote widespread use of the Pascal computer language on 
ATARI® Heme Computers, Atari, Inc. ("Atari") will grant a non-exclusive, 
royalty-free license to distribute the Run-Time System associated with the 
ATARI Pascal Language System { "Pascal") . 

II . The License 

Subject to the conditions stated herein, Atari will grant to the original 
purchaser of Pascal ("Licensee*') a non-exclusive, royalty-free license to 
distribute the Runtime System associated with Pascal ("Run-Time System"). 
Licensee is only authorized to distribute the Run-Time System in an object code 
form which is identical to the Run-Time System of Pascal (APX product 
APX-20102), and only in conjunction with and on the same media (e.g., diskette) 
as application programs developed by Licensee which require the Run-Time System 
for their proper operation. Except as provided above, Licensee shall not use 
or purport to authorize any person to use any of the copyrights, trademarks, 
service marks, or trade names of Atari without Atari 1 s prior written consent. 

The Run-Time System consists of the following files: PASCAL, MON, 
PASLIB.ERL, FPLIB.ERL, GRSND.ERL. This license conveys rights which relate 
solely to these five (5) named files. These files are encoded on the diskette 
which is part of Pascal. 

III. The License Term 

This license will run for a term of three (3) years from the date of 
purchase of Pascal. Two (2) extensions, each for a duration of one (1) year, 
will be granted upon receipt of written request from Licensee. Requests for 
extension should be submitted two (2) months prior to the expiration of the 
then current term. 

IV. Acceptance 

Licensee will be deemed to have accepted the terms and conditions of 
this Agreement when he/she distributes to any third party an application 
program which incorporates the Run-Time System licensed hereunder. 
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V. Additional Terms and Conditions 



A. Licensee understands and agrees that: 

(1) The Run-Time System is distributed on an "as is" basis without 
warranty of any kind by Atari. 

(2) The entire risk as to the performance and quality of the 
Run-Time System is with Licensee. 

(3) Should the Run-Time System as incorporated into Licensee's products 
prove defective following its purchase, Licensee and not Atari, 
Atari's distributors, or retailers, assumes all costs associated with 
or resulting from use of Licensee's products including all necessary 
repair or servicing. 

(4) Atari shall have no liability to Licensee or to customers of Licensee 
for loss or damage, including incidental and/or consequential damage, 
caused or alleged to be caused, directly or indirectly, by the 
Run-Time System. This includes, but is not limited to, any 
interruption in service or loss of business or anticipatory profits 
resulting from the use or operation of the Run-Time System. 

B. Licensee shall indemnify and hold Atari harmless from any claim, 
loss, or liability allegedly arising out of or relating to the operation of the 
Run-Time System as used by Licensee or customers of Licensee pursuant to this 
Agreement. 

C. Licensee shall not suggest, imply or indicate in any manner that any of 
his/her software products which incorporate or use the licensed Run-Time System 
are approved or endorsed by Atari. 

D. Licensee acknowledges that a failure to conform to the provisions 
of Subsection C of Section V will cause Atari irreparable harm and Atari's 
remedies at law will be inadequate. Licensee acknowledges and agrees that 
Atari shall have the right, in addition to any other remedies, to obtain an 
immediate injunction enjoining any breach of Licensee's obligations set forth 
in Section V.C above. 

E. No waiver or modification of any provisions of this Agreement shall be 
effective unless in writing and signed by the party against whom such waiver or 
modification is sought to be enforced. No failure or delay by either party in 
exercising any right, power or remedy under this Agreement shall operate as a 
waiver of any such right, power or remedy. 

F. This Agreement shall bind and work to the benefit of the successors and 
assigns of the parties hereto. Licensee may not assign rights or delegate 
obligations which arise under this Agreement to any third party without the 
express written consent of Atari. Any such assignment or delegation, without 
written consent of Atari, shall be void. 
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G. The validity, construction and performance of this Agreement shall 
be governed by the substantive law of the State of California and of the 
United States of America excluding that body of law related to choice of law. 
Any action or proceeding brought to enforce the terms of this Agreement shall 
be brought in the County of Santa Clara, State of California (if under State 
law) or "the Northern District of California (if under Federal law). 

H. In the event of any legal proceeding between the parties arising from 
this Agreement, the prevailing party shall be entitled to recover, in addition 
to any" other relief awarded or granted, its reasonable costs and expenses, 
including attorneys' fees, incurred in the proceeding. 

VI. Specific Disk Operating System Exclusion 

The license granted herein does not relate in any way to the ATARI® 
Disk Operating System, DOS II. Inquiries relating to such a license should be 
sent to: 



Atari, Inc. 

Hone Computer Division 

60 East Plumeria Drive 

San Jose, CA 95134 

Attn: Software Acquisition Group 



For Atari: 



Atari, Inc. 



By: 




1265 Borregas Avenue 



Name: 



Bruce W. Irvine 



P.O. Box 427 



Title: 



V.P. , HCD Software 



Sunnyvale, CA 94086 



Date; 



#59 (A3) 2/23/82 



PREFACE 
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AUDIENCE 



This manual is specifically designed for advanced programmers who 
are familiar with Pascal and with the features of the ATARI 800 Home 
Computer System. This manual is not suited for learning Pascal or the 
ATARI 800 Home Computer. 

HOW TO USE THIS MANUAL 

We recommend starting with the Introduction and Overview (Chapter 1) 
and then proceed through Chapter 2, which describes how to operate the 
system* recommendations for backup and a sample program to get you 
started. The rest of the manual is technical and should be referred to 
as needed. 

PRODUCT CONSIDERATIONS 

The ATARI Pascal Language System was designed for use by experienced 
software developers. The steps required to compile an ATARI Pascal 
program are time consuming. Memory limitations* diskette capacity and 
access time will affect product performance. As with other APX 
pro g rams * ATARI does not support this product after the sale. 

REPORTING PROBLEMS 



All documented 
be studied and 



problems submitted to The ATARI Program Exchange will 
considered in future revisions of this product. 
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CHAPTER 1: 



ATARI PASCAL INTRODUCTION AND OVERVIcW 



This manual describes the ATARI rascal Language System being offered 
through the ATARI Program Exchange as a software development tool for 
professional developers. ATARI Pascal is a pseudo-code compiler which 
supports the International Standards Organization (ISO) draft standard 
(DPS/7135 as of 10/1/80), including variant records, sets, typed and 
text files, passing procedures and functions as parameters, GOTO out 
of a procedure, conformant arrays and program parameters. Additions 
to the standard available in ATARI Pascal include: 

Additional predefined scalars: BYTE, WORD, STRING. 
Operators an integers ?y. (and), !, / (or) !, ? (NOT) 
Else on CASE statement 
Nul 1 Strings 

Absolute Var i ab 1 e s . 
External procedures 

Additional built-in procedures and functions: 

graphic, sound, and controller definitions 

real and tranc end enta 1 definitions 

move and fill procedures 

bit and byte manipulation 

file manipulation procedures 

heap management aids 

string manipulation 

address and siieof functions 
Modular compilation facilities 

In addition, run-time error handling provides for divide by zero 
check, heap overflow check, string overflow check, range check and 
user-supplied error routines. 

ATARI Pascal has been designed for data processing applications 
consisting of compilers, editors, linkers, business, and entertainment 
packages. It is designed to operate with the ATARI Disk Operating 
System 2. OS and is compatible with the ATARI Program Text-Editor CTM3, 

This chapter presents an overview of this manual, the system and 
compilation and run-time system requirements, and it describes the 
files on the distribution diskettes. 

Because of the availability of many text books on the Pascal 
programming language, this document is not a tutorial but rather a 
reference manual and a detailed description of the extensions and 
additions that make ATARI Pascal unique. Refer to the bibliography for 
additional reference materials. 
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Chapter 3: This chapter describes the extensions to ATARI Pascal. It 
presents such features as modular compilation! built-in 
proceduresi graphics and sound extensions. 

Chapter 4: This chapter briefly summarizes of the run-time error 
handling routines. 

Chapter 5: This chapter describes the structure of a program generated 
by the compiler. Data storage is also discussed in this 
chapter. 

Chapter 6: This chapter briefly compares ATARI Pascal and UCSD Pascal. 
Chapter 7: This chapter defines the language features of ATARI Pascal. 
Appendix A: A complete description of the language syntax 
Appendix B: The reserved tuords list 

Appendix C: A complete description of each compilation error 
mes sage 

Appendix D; ATARI Pascal File I/O 

Appendix E: A bibliography of additional reading suggestions 
Appendix F: P lay er /Mi ss i 1 e Demo Program 
Appendix G: Helpful Hints 
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1.2 System Overview 



c 



The ATARI Pascal Language System contains the Pascal monitor/ 
compiler, linker, run-time subroutine library and interpreter. Figure 
1-1 shows a diagram of the relationship among these products. 
Reference to the ATARI Program-Text Editor (APX-20075) has been 
included to show its relationship to ATARI Pascal. 
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Figure 1-1 Schematic Diagram of ATARI Pascal Operation 

The ATARI Program-Text Editor may be used to create and modify the 
Pascal source program. The compiler is used to translate the source 
program into relocatable machine code. The user then links this 
machine code with the run-time subroutine library to produce an 
executable object program. 

1.3 System Requirements 

The ATARI Pascal Language System requires the ATARI 800 with 4BK of 
RAM and two ATARI 810 Disk Drives. The ATARI 825 80-Column Printer and 
the ATARI 850 Interface Module are optional. ATARI Pascal also 
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requires the A i AR I Program-Text Editor. When using ATARI Pascal » no 
cartridge should be inserted in the cartridge slot. 

1.4 Run-Time Requirements 

The ATARI Pascal Language System generates programs that use a variety 
of run-time support subroutines that are extracted from PASLIB* the 
run - time library, and other relocatable modules. These run— time 
routines handle such needs as "multiply" and "divide" and file input 
and output interface to the Operating System. 

1.5 ATARI Pascal Distribution Diskette Information 

The ATARI Pascal Language System is distributed on diskettes 
compatible with the ATARI 810 Disk Drive. The system consists of two 
diskettes containing object/ source and relocatable files. Listed 
below are the names of each file and a brief description of their 
contents. 

Diskette 1 PASCAL /LINKER 

File Contents 

DOS. SYS ATARI Disk Operating System 

ATARI Disk Operating System 

Interpreter used to execute all Pascal object programs. 



DUP. SYS 
PASCAL 
MON 



LINK 



Pascal monitor loaded by the PASCAL file* providing the 
menu to specify the desired operation: compile/ link/ edit 
or run. 

Pascal linker used to take relocatable files ( . ERL ) and 
run-time library files as input to create object files 
(.COM). 



LINK. OVL 



Pascal linker part two 



PASLIB. ERL Run-time subroutine library in relocatable form. Should 
always be linked last. 



FPLIS. ERL Run-time support routines for floating point arithmetic 
and transcendental functions. 

GRSND. ERL Run-time support routines for graphic, sound and 
controller functions. 

CALC. PAS This is the source file for the Pascal demo program. 
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Diskette 



Pascal Compiler 



File Contents 
PHO 



PHI 



ph; 



PH3 



PH4 



Phase of the Pascal compiler used for syntax scan and 
creation of token file. 

Phase 1 of the Pascal compiler used to create the 
permanent symbol tables and build the user symbols. 

Phase 2 of the Pascal compiler containing code generation 
initial! zat ion. 

Phase 3 of the Pascal compiler used to create the 
relocatable object code file. 

Phase 4 of the Pascal compiler used to complete the object 
code generation. 



ERRORS. TXT File containing ATASCI I text for error messages. 

GSPROCS This file is the include file containing graphic, sound 

and controller definitions. 

FLTPROCS This file is the include file containing real number and 
transcendental function declarations. 

MOVES This file is the include file containing declarations for 

character arrays. 

BITPROCS This f il e is the include file containing declarations for 
bit manipulation routines. 

HEAPSTUF This file is the include file containing declarations for 
heap procedures. 

DSKPROCS This file is the include file containing file manipulation 
pr oc ed ur es. 
* 

STDPROCS This file is the include file containing standard Pascal 
routines including the floating point routines. 

» 

ISOPROCS This file is the include file containing ISO standard 
Pascal routines excluding floating point routines. 

STRPROCS This file is the include file containing string processing 
proceduresandfunctions. 
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CHAPTER 2: HOW TO OPERATE THE PASCAL LANGUAGE SYSTEM 



This chapter describes how to use the ATARI Pascal Language System 
contained on the PASCAL/LINKER and Pascal Compiler diskettes. It 
covers the following information: 

Section 1 provides step-by -step instructions on how to compile* 
link and run a sample program. 



Sec t i 


on 


c 


describes 


the 


compiler and its options. 


Sec t i 


on 


n 


descr ibes 


the 


linker and its options. 


Sec t i 


on 


4 


describes 


houj 


to run an object program. 


Sec t i 


on 


5 


describes 


the 


ATARI Program Text-Editor 
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2. 1 Compile, Link and Run a Sample Program 



Before compiling and running the sample program described in this 
section! make a backup copy of all diskettes included in this 
package. 



2. i. 1 Compile Sample Program 
Step One 

Place the PASCAL/LINKER diskette into disk drive 1 and boot the Disk 
Operating System 2. OS, Then use option C to copy the sample 
calculation program "CALC. PAS" to a blank diskette on disk drive 2. 
At this time use the L option to load the file named "PASCAL" from 
disk drive 1. The Pascal menu will then appear. 



ATARI Pascal 
Version 1.0 : l-Mar-82 
(c) 1982 by ATARI 



E ) d i t C ) omp i 1 e 

Dink R)un 
D ) as Q ) u i t 

Enter letter and C RETURN 3: 



Step Two 

Respond to the rascal menu displayed on the screen with the command 
"C" CRETURN] to begin compilation. 

When prompted for your source filename, type "D2: CALC. PAS" CRETURN3. 

The monitor will then prompt you for a token and code file name. 
Respond with C RETURN 3 for each. 

A message will then be displayed "Change Dl to compiler disk. " At this 
time place the Pascal Compiler (diskette 2) into disk drive 1 make 
sure the sample program "CALC. PAS" is in disk drive 2 and then press 
C RETURN 3. 

The compiler will be loaded into memory and prompt you to choose a 
listing device. Respond "P: " (printer), "El (screen), or CRETURN3 
(no listing). 

The compiler will proceed to display the following compilation 
stat i sties. 



Loading Compiler 



ATARI Pascal 
Version 1. O - l-Mar-82 
(c) 1982 by ATARI 



Syntax Scan 



Creating: D2: CALC. TQK 
Listing file* P: or E; 
<return> for none 



File does not contain line numbers 

< 0> 

Including Text from File: Dl: STDPROCS 

< 14> 

< 32> 

< 64> 

< 96> 

< 12S> .... 
End of Phase 
Source lines processed: 
Loading Phase I 
Open as input: • D2: CALC. TOK 
Open as output: D2: CALC. ERL 
Available Memory: 4387 
User Table Space: 3264 



(syntax / token file generation) 



1 "3: 



(total 
(after 



Version 

Re ma ining 
Version 1 
SUBREAL 
ADDREAL 
TF 

CALC 
MENU 

CALCULAT 
Ex t ernal 
External 
Ex t ernal 
External 
Ex t erna 1 
External 
Externa 1 
External 
External 
External 



1. 0, Phase 1 



Memory 2100 
0, Phase 2 
IS 
43 
64 
119 
915 

TRUNC 

SQRT 

SIN 

ROUND 

OUTPUT 

LN 

INPUT 

EX.P 

COS 

ARCTAN 



( one # 
(after 



symbol table space) 
predefined symbols) 

for each routine body) 
user symbols) 



(decimal offset from beginning) 



Lines : 130 
Errors: O 
Cade : 1737 
Data : 64 
REPLACE Dl THEN 
Ty p e <ret urn> to continue 



(place diskette 1 PASCAL/LINKER) 

(in disk drive 1j then press CRETURN3 



Minutes later 
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The system will prompt you to "REPLACE Dl THEN Type C RETURN 3 to 
continue." At this time remove the rascal Compiler from disk drive 1 
and insert the PASCAL/LINKER in disk drive 1 then press C RETURN 3. 

The compilation process will then be completed and the Pascal menu 
mill display. 

NOTE: If the compiler fails to complete compilation, check to see if 
the diskettes are in the proper drives. If they are try <SYSTEM 
RESETX If both of these attempts fail/ the only recourse is to turn 
off your computer and turn it on again. 

2. 1. 2 Link Sample Program 

Step One 

To create the relocatable object file, respond to the Pascal menu with 
the command "L" E RETURN 3 to begin the linking process. At this time 
the following will be displayed. 

Loading Linker 

when LINKER prompts with "*" enter 
your . ERL file names separated by 
commas ending with PASLIB/S 

Then type C RETURN! 

LINKER VI. 

When prompted for your filename by an asterisk you don't need to 

use an extension (.ERL) but you must use the device prefix "D & : . 

The Pascal library routines must then be linked along with your 
pro gram. 

At this time respond to the filename prompt with the following: 
D2: CALC, FPL IB, PASLIB/S CRETURN3 

NOTE: This program may be used as an example of using the Floating 
Point Library ( FPLIB ) routines. 

The linker will then display the following statistics and print 
"LINK COMPLETE TYPE CRETURN J • 

D2: CALC. ERL <48A7H> 
Dl : FPLIB. ERL <2FFAH> 
Dl: PASLIB. ERL <1F50H> 

Undefined Symbols 

— No Undefined Symbols — 
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11405 bytes written to D2: CALC. COM 

Total Data : OOBEH bytes 
Total Code : 2BCEH bytes 
Remaining : I442H bytes 

Link complete type C RETURN 3 

At this time press [RETURN: and the PASCAL menu will display. 



( 
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2. 1.3 Run Sample Program 



To run the sample program respond to the Pascal menu with the command 
"R" then CRETURN3 to run the object program. 

You will then be prompted for the filename and should respond with the 
f ol lowing : 

D2: CALC. COM 

The calculation program will begin execution displaying the message 
"ENTER FIRST OPERAND?" Try this example for adding 5.5 to 79.256. 
First respond with "5. 5" then C RETURN 3. The message "Rl - 5. 500E+00" 
should be displayed followed by "ENTER SECOND OPERAND?" . Respond with 
"99.256" then CRETURN3. The message "R2 = 9. 92560E+1" should be 
displayed followed by "ENTER OPERATOR: " followed by a list of 
operators. Respond with the operator " + " then [RETURN!. The result 
"104.756" should then be displayed. You should now press the CESCAPE3 
V.ey to return to the DOS menu. 

You have now completed the compilation* linking and running of your 
first ATAR I Pascal program! 
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2.2 Compiler Operation 

2.2. 1 Invocation and Filenames 



The ATARI Pascal Language System is executed under the ATARI Disk 
Operating System < DOS 2. OS). To execute the compiler/ place the 
PASCAL /LINKER (diskette 1) in disk drive 1 and LOAD the file called 
PASCAL from the DOS menu. This file is the Pascal interpreter and wi 1 1 
automatically call the Pascal monitor with a filename of MON. The 
monitor then displays the following menu: 



ATARI Pascal 
Version 1.0 : l-Mar-82 
(c) 1932 by ATARI 

E / d i t C ) omp i 1 e 

L > ink R ) un 

D ) os Q> ui t 



Enter letter and C RETURN 3: 

Select the first character of the desired function and enter this 
character followed by a C RETURN 3 . 



2.2.1.1 DOS and QUIT Options 

The "DOS" and "QUIT" operation allows you to exit the Pascal menu and 
return to the ATARI Disk Operating System. 



2. 2. 1 . 2 Camp i 1 e 

When you select "C" for "Compile/" the monitor will request you 
to enter three file names and then load the compiler. The first 
request is for the source file name. You may then respond with the 
filename prefix <D2: ) to identify the device, the input filename, and 
the extension . PAS. The Compile function then requests the name for 
the token and code files. If there is sufficient room on the diskette 
containing the source file you may respond by simply depressing 
CRETURN3 in response to these requests. If there is not sufficient 
room you may specify that these files be placed on separate diskettes 
by specifying the FULL file name as desired. NOTE: None of the 
Compiler files may be cassette based. 

A message will then be displayed "Change Dl to compiler disk." At this 
time place the Pascal Compiler (diskette 2> in disk drive 1/ place the 
diskette containing your source program in disk drive 2 then press 
CRETURN1. ATARI Pascal then creates a relocatable file <name>, ERL 
which must be linked with the Pascal linker to the routines in the 
run- time library (PASLIB ). 
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Compilation Data 



Th * ATARI Pascal compiler will periodically display characters during 

.... . ~. . ,-. int. 1 \ 



the firs 



;iuo 



phases of the compilation (Phase and Phase 1) 



A period (. ) will be displayed on the console for every source code 
line syntax scanned during Phase 0. At the beginning of Phase 1, the 
available memory space is displayed. This is the number of bytes (in 
decimal) of memory before generation of the symbol table. 
Approximately IK of the symbol table space is consumed by pre-defined 
identifiers. When a procedure or function is found, a pound sign C#> 
will be displayed on the console. At the completion of Phase 1, the 
number of bytes remaining in memory is displayed in decimal. 

Phase 2 generates object code. When the body o'f each procedure is 
encountered the name of the procedure is displayed so that you 
ran see where the compiler is in the compilation of the program, 
linker /M (Map) option will list the absolute addresses of the 
procedures in each module. Upon completion the following lines 
display: 



The 



Lines 
Err or s 
Code 
Da ta 



lines of source code compiled (in decimal) 
number of errors detected- 
bytes of code generated (in decimal), 
bytes of data reserved (in decimal). 
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Camp i 1 er Tog g les 



A compiler toggle may be included in the source program to signal the 
compiler that you wish to enable or disable certain options. The 

format of this toggle is _ _ _ * > where the blanks are filled in 

with the toggle. The compiler does not accept blanks before the key 

latter or trailing or imbedded blanks in names but will skip over 

leading blanks; e.g., ( *SE +«) is the same as < *$E+* ) , but the <#$ E 
+* ) will be ignored. 



Examp 1 es : 



(-S-SE+* ) 
(#SP#) 

D: USERFILE. LIB*) 



2.2.3.1 Entry Point Record Generation (E) 

$E+ and *E- control the generation of entry point records in the 
relocatable file. ££+ causes the global variables and all procedures 
and functions to be available as entry points (i.e./ available to be 
referenced by EXTERNAL declarations in other modules). $E— su presses 
the generation of these records thus causing the variables, 
procedures! and functions to be logically private. The default state 
is $E+ and the toggle may be turned on and off at will. 

2.2.3.2 Include Files (I) 



$Kf i 1 ename> causes the compiler to include the named file in the 
sequence of Pascal source statements. Filename specification includes 
drive name and extension in standard format. 

The format is as follows: 

<**IDn: XXXXXXX*) 
or 

(*$IDn: XXXXXXX. PAS* ) 

where n is the disk drive number 

where XXXXXXX is the Include file name 

Using these standard Include file procedures as examplesi you may 
create Include files to be used during the compilation process. 

2.2.3.3 Strict Type and Portability Checking (T/W) 

$T+# ~T-> and ?W~ control the strict type checking'/ non-portable 

warning facility. These features are tightly coupled (i.e. strict type 
checking implies warning non- portable usage and vice versa). The 
default state is $T- ($W-) in which type checking is relaxed and 
warning messages are not generated. This may be turned on and off 
throughout the source code as desired. A use of non-standard logic 
and/or built— in routines will cause error 500 to be generated. This 
error is not fatal but serves as a warning to the programmer. Code 
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generated with error 500 during the compilation will still execute 
properly. 

2.2.3.4 Run-time Range Checking (R) 

$R+ and $R- control the compiler's generation of run-time code which 
will perform range checking on array subscripting and storing into 
subrange variables. The default state is *R- (off) and this toggle may 
be turned on and off throughout the source code as desired. 

2.2.3.5 Run-time Exception Checking (X) 

*X+ and *X- control the compiler's generation of run-time code, which 
will perform run-time error checking and error handling ror what is 
termed exceptions. Exceptions are: 

Zero divide 

String overflow/truncation 
Heap overflow 

Th- system philosophy under which ATARI Pascal operates states that 

=ro divide and string overflow are treated in a "reasonable" manner 
wh"en e ception checking is disabled. Zero divide returns the maximum 
value for the data type and string overflow results in truncation of 
the string rather than modification of adjacent memory areas. The 
"fault state is *X- and may be changed throughout the source cod 
desired. See chapter 4 for more discussion of run-time error handling 
and options. 

2.2.3.6 Listing Controls ( Li P > 

The *P and *L + , toggles control the listing generated by the first 

pass of the compiler. SP will cause a formfeed character <CHRU2>> 
be inserted into the . PRN file. *L + and *L- are used to switch the 
listing on and off throughout the source program and may be placed 
wherever desired. 
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Nummary of Compiler Toggles 

Listed belou/ is a summary cf available compiler toggles: 

Compiler Toggles Default 

5>E +/— Controls entry point generation $E+ 

$1 <name> Includes another source file into the 
input stream (e. g. XXX. LIB* ) 

+/- Controls range checking code $R- 

$T +/- $T- 
$W +/— Controls strict type checking and generation $W— 

of ujarning messages 

$X +/- Controls exception checking code $X- 

£P Enter a formfeed in the . PRN file 

£L +/— Controls the listing of source code $L+ 
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2.2.4 Built-in Routines and Include Files 

The ATARI Pascal compiler contains only the logic necessary for 
defining "magic" pre-defined procedures/ functions and variables. 
These are such routines as READ, WRITE, ADDR, SIZEQF, etc. which 
require in— line code generation by the compiler or require support for 
a variable number of parameters. 

All other routines are defined using a special keyword "PREDEFINED" 
and two special types ANYTYPE and ANYFILE. You must include in 
the source program declarations for these routines. This is normally 
done using the $1 toggle to include STDPROCS and other similar files. 
STDPROCS contains declarations for procedures and functions defined by 
the ISO standard for Pascal. Additional files contain declarations for 
procedures and functions which are extensions to the ISO standard such 
as string routines, ASSIGN/ IORESULT etc. You may edit STDPROCS 
and these files to contain only the routines necessary for a given 
pro g ram. 

This method of defining built-in routines is present because the ATARI 
300 Home Computer has limited memory for all the declarations and user 
symbols used in compiling large programs. 
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5 Error Messages 



Compilation errors are numbered in the same sequence and meaning as 
those in Jensen and Wirth's "User Manual and Report". The error 
messages* brief explanations, and some causes of the error are found 
in Appendix C. 

Error 407, Symbol Table Overflow: Occurs in Phase 1 when not enough 
symbol table space remains for the current symbol. This may be 
alleviated by breaking the program into modules. 



2. 2. 6 Line Numbers 



ATARI Pascal allows line numbers. When line numbers are desired, the 
first line of the program source file must contain a numeric value. It 
then assumes all lines contain line numbers and the line number must 
start in column one. Line numbers may be of any length and it should 
be noted that they are ignored by the compiler. 
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2.3 Linker Operation 

2. 3. 1 Invocation and Commands 

LINK is used by executing the linker from the Monitor. Enter 'L' from 
the Pascal menu followed by CRETURN3 and the linker will load. The 
linker will then prompt the user for the name of the main program and 
modules to be linked, separated by commas. The output is directed to 
the same diskette as the main program unless you specify an output 
file name followed by an equal sign before the main program name. 



Et. amp 1 e : 

CALC, FPLIE/S, PASLIB/S 

D2: CALOCALC, FPLIB, PASLIB/S 



(CALC. COM is written to D2: > 



The above command, will link one of the demo programs with the run time 
package. The items to be linked may be preceded by a disk drive device 
prefix: 

D2: CALC, Dl: FPLIB, Dl: PASLIB/S 
2. 3. 2 Link er Op t i on Swi tches 

The linker lets you to place a number of "switches" following the file 
nam p S in the list. Each switch is preceded by a slash (/) and is a 
single letter. There is a parameter on the /P and /D switches. 



2.3.2.1 Run-time Library Search ( /S ) 



The examples above 
linker to search th 
library and extract 
extracts modules on 
and functions from 
dependent in that i 
the linker command 
specially construct 
with the system, un 
User -created module 
a library is import 



show the use of the /S 
e previously named rel 
only the necessary mo 
ly from libraries and 
separately compiled mo 
t must follow the name 
line as in the example 
ed, searchable library 
less explicitly specif 
s are not searchable, 
ant. 



switch which, commands the 
oca table file, PASLIB, as a 
dules. The /S switch 
does not extract procedures 
dules. It is position 

of the run-time library in 
s above. PASLIB is a 
. Other . ERL files supplied 
ied, are not searchable. 

The order of modules within 



Each searchable library must contain routines in the correct order and 
be followed by /S for searching to occur. If /S is not specified the 
entire contents of the library is loaded. 

2-3.2.2 Memory Map ( /M ) 

A m following the last file named in the parameter list generates a 
map to the. screen. * . • 



3.2.3 Load Map C/L> and Extended Load Map C/E) 
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A /L following the last module named causes the linker to display 
module code and data locations as they are being linked. A / E 
folio Hi ing the last module works as a modifier to / M and /L and causes 
the linker to display all routines including those beginning with $■ 
?/ or @/ which are reserved for run— time library routine names. 

2.3.2.4 Program ( /P ) and Data (ZD) Origin 

To support relocation of object code and data areas/ the linker 
supports the /P and /D switches. The /P switch controls the location 
of the object area (ROM) and the /D switch controls the location of 
the data area (RAM), The syntax is: /P : nnnn or /D: nnnn where "nnnn " is 
a hexadecimal number in the range 0. . . FFFF. 

In addition/ if you specify /D, the linker will not save any of the 
data area in the .COM file. This is a good way for reducing the data 
storage an diskette for programs/ since only the code will be loaded 
from diskette and not uninitialized data areas. Note that local file 
operations are not guaranteed if this is used because the system 
depends on the linker zeroing the data area to make this facility work 
properly. 

Also/ if /D is used/ more space is gained in the linking process 
because the data is not intermixed with the code as it is being 
linked. Using this switch is the first way to solve and "out of 
memory" messages displayed by the linker. 

Using the /P switch and /D switch does not cause the linker to leave 
empty space at the beginning of the .COM file. The philosophy of the 
linker is that if the /P switch is used/ you really want to move the 
program to another system for execution. This means that if you 
specify /P: eoOO, the first byte of the . COM file will be placed at 
location SOGOH and not 32K of zeros before the first byte. In 
addition/ if you specify /D the linker will not save any of the data 
area in the .COM file. This is a good way for reducing the data 
storage on diskette for programs since only the code will be loaded 
from a diskette and not uninitialized data areas. 

The switches /P and /D are specified after the last routine to be 
loaded and may be in any order. 

2.3.2.5 Continuation Lines (/C) 

If a line needs to be continued enter /C after the la£t character on 
the line before pressing the CRETURN1 key. 

2.3.2.6 Linker Input Command File (/F) 

The linker lets you enter data into a file and have the linker process 
the file names from the file. You specify a file with an extension of 
. CMD and follow this file name with a /F (e.g., CFILES/F). The linker 
will read input from this file and process the names just as if they 
were typed from the computer keyboard. If the file contains more than 
one line/ you must use /C after each line. If you wish to return to 
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the computer console for more input you may place / C on the last line 
in the file. Data on the command line following the /F is ignored. A 
. CMD file may not contain a line containing /F. 



2. 3 


. 2. 7 


Linker Switch Summary 




/S 




Search preceeding name as a library extra 
required routines. 


cting only the 






List modules as they are being linked. 




/M 




List all entry points in tabular form. 




/E 




List entry points beginning with $i ? or 
other entry points. 


€ in addition to 


/P: 


nnnn 


Relocate object code to nnnnH. 




/D: 


nnnn 


Relocate data area to nnnnH. 




/F 




Take preceeding file name as a .CMD file 
names (see above for syntax). 


containing file 


/C 




Continuation Lines 




-n 'a 


. 2. a 


Relocatable File Requirements 





The distribution diskettes contain several . ERL files that must be 
linked into the program. The particular files depend on what group of 
routines the compiler must reference* based on the contents of your 
program. Below is a list of each file and the routines it contains. If 
you have any of these routines as an undefined reference* then link 
the appropriate relocatable file to resolve the undefined reference. 



FPLIB 
PASLIE 
GRSND 
2. 3. 2. 9 



Floating point real numbers @ XQP, <*RRL, @WRL (searchable) 
Comparisons. I/Oi arithmetic supports etc. 
Graphics! sound/ and controllers support 
Linker Error Messages 



The linker allows up to forty names on the command line (or command 
file input) for files to be linked. 

Errors encountered in the linking process are usually 

self-explanatory/ such as "unable to open input file: x x x x x x x x " and 
"Duplicate symbol- xxxxxxx." Duplicate symbol means that a run-time 
routine or variable and user routine or variable have the same name. 
Undefined reference indicates the appropriate relocatable file has not 
been included. Refer- to the preceeding paragraph on Relocatable File 
Requirements. 



If you run out of memory while 1 inking/ you may remove the data from 
the code space with the / D switch. You may need to run a test link 
with the /D switch set very high to find out what the code size i s , 
then relink with the /D switch set just above the last code address 
(with some room for code expansion). 

2.3.2.10 Attributes of Linkable Modules 

The linker will bind together ATARI Pascal main programs. Atari Pascal 
modules* and assembly language modules created by an appropriate 
as s emb 1 er . 
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2.4 Object Program Execution 



ilea and linked with 



Once the source program has been successfully c omp 
the appropriate run-time libraries you may execute or Run the 
program. 

Whe n you select "R" for Run from the Pascal menu, you will then be 
asked for the object filename to run. 

Example: 

D2: CALC. COM 
The object program will then 



be loaded into memory and executed 



2.5 ATARI Program-Text Editor (MEDIT) 



The ATARI Program-Text Editor is a versatile tool that can be used to 
create and modify source programs written in ATARI Pascal. This 
product may be ordered through the ATARI Program Exchange ( APX-20075 > 
or may be purchased with the ATARI Macro Assembler ( C X 8 1 2 1 ) 

2.5.1 Running the ATARI Program-Text Editor 

The Pascal menu provides an option of calling the ATARI Program-Text 
Editor. The default value of this option is disk drive 2. Prior to 
using this option you must first make the following modifications. 

1 ) Copy MED IT from the distribution diskette to a blank diskette on 
disk drive 2. 

2) Load D2: MEDIT from the DOS menu using the " /N" option to prevent i 
from running (this will require the temporary presence of MEM. SAV 
which can be deleted afterwards). 

3) Save it back from DOS as follows: D2: MEDIT/Aj 2600, 2601. 

This append operation tells the "Pascal" program pointer to begin 
execution at the MEDIT entry point. 

Note: The append operation may also be used to run any assembly 
language file from Pa seal. The file must be appended with the start 
address and start address plus one. If the file consists of many 
disconnected modules scattered throughout the program, make sure 
the appended start address used is t,he run-time entry point. 



CHAPTER 3: ATARI PASCAL LANGUAGE SYSTEM EXTENSIONS 

This chapter describes the function and use of ATARI 
e x tensions. 

It cavers the following areas: 

3.1 Modular Compilation 

3.2 Data Allocation and Parameter Passing 

3.3 Program Segmentation - Chaining 

3.4 Built-in Procedures 

3.5 Non-Standard Data Access 

3.6 Imbedded Assembly Code 

3.7 Graphics and Sound Extensions 



■ 



3. 1 Modular Compilation 

ATARI Pascal supports a flexible modular compilation system. 
Programs may be developed in a monolithic fashion until they become 
too large to manage (or compile) and then split into modules at that 
time. The ATARI Pascal modular compilation system allows full access 
to procedures and variables in any module from any other module. A 
compiler toggle is provided to allow you to "hide" (i.e. make private) 
any group of variables or procedures. See section 2.2.3. 1 for a" 
discussion of the $E toggle. 

The structure of a module is similar to that of a program. It begins 
with the reserved word MODULE, followed by an identifier and 
semi-colon (e.g.. MODULE TEST1; ) and ends with the reserved word 
MOD END i followed by a period < e. g . » MODEND, ) . In between these two 
lines you may declare label* constant/ type, variable* procedure and 
function sections just as in a program. Unlike a program* however* 
there is no BEGIN. . END section after the procedure and function 
declarations, just the word MODEND followed by a period ( . >. 

Examp 1 e: 
MODULE MODI; . 

< label, const, type* var declaration s> 

<pr ocedure / function declarations and b od i es> 

MODEND. 

To access variables, procedures and functions in other modules < or in 
the main program) a new reserved word* EXTERNAL* has been added and is 
used for two purposes. 

First, the word EXTERNAL may be placed after the colon and before the 
type in a GLOBAL variable declaration denoting that this variable list 
is not actually to be allocated in this module but rather in another 
module. No storage is allocated for variables declared in this way. 

Example: 

I,J*K, : EXTERNAL INTEGER; (* in another module *) 

R: EXTERNAL RECORD <* again in another module * ) 

... (■» some fields * 3 

END; 

You MUST BE responsible for matching declaration identically* because 
the compiler and linker do not have the ability to type check. 

Second, the EXTERNAL word is used to declare procedures and functions 
which exist in other modules. These declarations must appear before 
the first normal procedure or function declaration in the 
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module/program. Externals may only be declared at the global 
(outermost) level of a program or module. 

Just as in variable declarations, the ATARI Pascal language requires 
you to make sure the number and type of parameters match exactly and 
the returned type matches exactly for functions, because the compiler 
and linker do not have the ability to type check across modules. 
External routines may NOT have procedures and functions as parameters. 

Note that in ATARI Pascal external names are significant only to seven 
characters and not eight. When interfacing to assembly language, limit 
the length of identifiers accessible by assembly language to six 
characters. 

Listed below are a main program skeleton and a module skeleton. The 
main program references variables and subprograms in the module, and 
the module references variables and subprograms in the main program. 
The only differences between a main program and a module are that at 
the beginning of a main program there are 16 bytes of header code 
and a main program body following the procedures and functions. 

Main Program Example: 
PROGRAM EXTERNAL_DEMQ; 

< 1 a b e 1 , constant, type declarations> 
VAR 



I, J : INTEGER; (* AVAILABLE IN OTHER MODULES *) 

K,L : EXTERNAL INTEGER/ <* LOCATED ELSEWHERE *) 
EXTERNAL PROCEDURE SORT (VAR Q: LIST; LEN: INTEGERS- 
EXTERNAL FUNCTION IOTEST: INTEGER; 

PROCEDURE PROC1; 
BEGIN 

IF IOTEST = 1 THEN 

(* CALL AN EXTERNAL FUNC NORMALLY *> 

END; 

BEGIN 

SORT ( . ... >; 

C* CALL AN EXTERNAL PROC NORMALLY *) 
END. 



Module Example: (Note these are separate files) 
MODULE MODULE DEMO/ 
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■Clabelf const) type declarations > 
VAR 

I, J : EXTERNAL INTEGER; C* USE THOSE FROM MAIN PROGRAM *) 

K,L : INTEGER* C* DEFINE THESE HERE *> 

EXTERNAL PROCEDURE PROCll t# USE THE ONE FROM THE MAIN PROG 

PROCEDURE SORT<. . . >, <* DEFINE SORT HERE *> 

FUNCTION IOTEST: INTEGER; C* DEFINE IOTEST HERE *> 

<niaybe other procedures and functions here> 

MODEND, 



3.2 Data Allocation and Parameter Passing 
3. 2. 1 Data Allocation 

In addition to accessing variables by name, you must know how 
variables are allocated in memory. Section 5.1 discusses the storage 
alloration and format of each built-in scalar data type. Variables 
allocated in the GLOBAL data area are allocated essentially shown 
here. However, variables in an identifier list before a type (e.g., 
B, C : INTEGER ) are allocated in reverse order (i.e., C first, 
following by B, followed by A). 

Examp le: 



A, 



A 
B 

I, J, K 
L 



INTEGER; 
CHAR; 
BYTE; 
INTEGER; 



STORAGE LAYOUT: 



+0 A 
+ 1 A 
+2 B 
+3 K 
+4 
+ 5 
+6 
+7 



J 
I 
L 
L 



LSB 
MSB 



LSB 
MSB 



Structured data tupes: ARRAYs, RECORDS and SETs require additional 
explanation. ARRAYs are stored in ROW major order. For example 
A: ARRAY CI.. 3,1.. 33 OF CHAR is stored as: 



+0 AC1, 13 
+ 1 AC1, 23 
+2 AC1, 33 

+3 AC2, 13 
+4 AC2, 23 
+5 AC 2, 33 

+6 AC3, 13 
+7 AC3, 23 
+8 AC3, 33 



This is logically a one-dimensional array of vectors. In ATARI Pascal 
all arrays are logically one-dimensional arrays of some other type. 

RECORDS are stored in the same manner as global variables. 
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SETs are always stored as 32-byte items. Each element of the set is 
stored as one bit. SETs are byte-oriented and the low order bit of 
each byte is the first bit in that byte of the set. Shown below is the 
set 'A'. . 'Z': 

3y t e numb er 

00 01 02 03 04 05 06 07 OS 09 OA OB OC OD OE OF 10 ... IF 



00 00 00 00 00 00 00 00 FE FF FF 07 00 00 00 00 00 . . . 00 

The first bit is hit 65 ($41) and is found in byte 8, bit 1. The last 
bit is bit 90 and is found in byte 1 1, bit 2. In this dicussion bit 
is the least significant bit in the byte. 
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3.2.2 Parameter Passing 

When calllinq an assembly language routine from ATAR I Pascal or calling 
an ATARI Pascal routine from assembly language, parameters are passed 
on the sttack. The parameter passing stack in ATARI Pascal is different 
than the 6502 hardware stack. This software stack is at locations £600 
through £?6FF in memory. The hardware X register must be saved and 
restored during execution of assembly language routines and is used as 
the pointter to the software stack. You may load the top of the stack 
using "LED A 5600, X", etc. Upon entry to the routine, the top of the 
hardware stack contains the return address. On the software stack* 
reversse order the declaration, ( A , B : INTEGER, C : CHAR ) , would result 
C on ttop of B on top of A. Each parameter requires at least one 
16-bit WCDRD of stack space. A character or boolean is passed as a 
16-bit wcord with a high order byte of 00. VAR parameters are passed by 
address. The address represents the byte of the variable with the 
lowest m ei m o r y address. 

Non-scalaar parameters (excluding SETs) are always passed by address. 
If the parameter is a value parameter then code is generated by the 
compiler in a Pascal routine to move the data. SET parameters are 
passed bu=' value on the stack and then the interpreter is used to store 
them. 



l n 
i n 



The examprl 
procedure- 



below shows a typical parameter list at entry to a 



PROCEDURE DEMO ( I, J : INTEGER; VAR Q: STRING; C, D: CHAR); 
AT ENTRY STACK ($600, X): 



+0 


D 








+ 1 


BYTE OF 00 






+2 


C 








+3 


BYTE OF 00 






+4 


ADDRESS OF 


ACTUAL 


STRING 


+ 5 


ADDRESS OF 


ACTUAL 


STRING 


+6 


J 


(LSB ) 






+7 


J 


(MSB) 






+8 


I 


(LSB) 






+ 9 


I 


(MSB) 







The assembly language program must remove all parameters from the 
evaluation stack before returning to the calling routine. 



SETs are stored on the 
bottom (high address). 



stack with the least significant byte on 



Function values are returned on the stack. They are placed "logically 
underneath the return address before the return is executed. They 
therefore remain on the top of -the stack after the calling program is 
re-entered following the return. Assembly language functions may only 
return the scalar types INTEGER, REAL, BOOLEAN and CHAR. 
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3.3 Frogram Segmentation — 



Chaining 



There are times when programs exceed the memory available and also 
many times when segmentation of programs for compilation and 
maintenance purposes is desired. ATARI Pascal provides a "chaining" 
mechanism in which one program may transfer control to another 
prog ram. 

You must declare an untyped file (FILE; ) and use the ASSIGN and RESET 
procedures to initialize the file. You may then execute a call to the 
CHAIN procedure, passing the name of the file variable as a single 
parameter. The run-time library routine will then perform the 
appropriate functions to load in the file you opened using the RESET 
statement. Program size does not matter. A small program may chain to 
a large one and a large program may chain to a small one. If you 
desire to communicate between the chained program you may choose to 
communicate in two ways: shared global variables and ABSOLUTE 
var iab 1 es. 

If you use the shared global variable method, you must guarantee that 
at least the first section of global variables is the same in the two 
programs wishing to communicate. The remainder of the global variables 
need not be the same and the declaration of external variables m the 
global section will not affect this mapping. In addition to having 
matching declarations, you must use the /D option switch available in 
the linker (see section 2.3.2.4) to place the variables at the same 
location in all programs wishing to communicate. 

To use the ABSOLUTE variable method you would typically define a 
record used as a communication area and then define this record, at an 
absolute location in each module. This method does not require using 
the /D switch in the linker but does require knowledge of the memory 
used by the program and system. 

Lifted below are two example programs that communicate with each other 
using the ABSOLUTE variable method. The first program will CHAIN to 
the second program, which will print the results of the first , 
program's execution: 



Ex amp 1 e : 
PROGRAM PROG1; 
TYPE 

CGMMAREA = RECORD 

I . J, K : INTEGER 
END; 

VAR 

GLOBALS : ABSOLUTE C ^80002 COMMAREA; 
CHAINFIL: FILE; 

BEGIN (* MAIN PROGRAM #1 *) 
WITH GLOBALS DO 
BEGIN 
I : = 3; 
J : « 3; 
R : = I * J 
END; 

ASSIGN* CHAINFIL, 'Dl : PR0G2, COM ' > ; 
RESET ( CHAINFIL ) ; 
IF IORESULT O THEN 
EEGIN 

WR I TELN ( ' UNABLE TO OPEN Dl ; PR0G2. COM ' ) ; 
EXIT 
END; 

CHAIN ( CHA INFIL ) 
END. (* END PR0G1 *> 



(* PROGRAM #2 IN CHAIN DEMONSTRATION #> 

PROGRAM PR0G2; 

TYPE 

COMMAREA = RECORD 

I, J, K : INTEGER 
END; 

VAR 

GLOBALS : ABSOLUTE C$80001 COMMAREA; 



BEGIN <* PROGRAM #2 *> 
WITH GLOBALS DO 
WRITELNC 'RESULT OF ',1,' TIMES ',J, ' IS K> 
END. C* RETURNS TO OPERATING SYSTEM WHEN COMPLETE *) 
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3. 4 



Built-in Procedures and Parameters 



This section describes ATARI Pascal's built-in procedures and 
■Functions. Each routine is described syntactically* foil owed by 
description of the parameters and an example program using the 
procedure of the function. Section 3.4.2.5 is a quick reference 
of all built-in procedures and functions. 



3.4.1 MOVE, MOVER IGHT, MOVELEFT 

PROCEDURE MOVE < SOURCE; DESTINATION, NUM_B YTES ) 

PROCEDURE MOVELEFT (SOURCE, DESTINATION, NUM_E YTES ) 
PROCEDURE MOVER IGHT ( SOURCE, DESTINATION, NUM_B YTES ) 

These procedures move the number of bytes contained in NUM_ BYTES from 
the location named in SOURCE to the location named in DESTINATION. 
MOVE is a synonym for MOVELEFT. MOVELEFT moves from the left end of 
the source to the left end of the destination. MOVER IGHT moves from 
the right end of the source to the right end of the destination (the 
parameters passed to MOVER IGHT specify the left hand end of the 
source and destination). 

Use MOVELEFT and MOVER IGHT to transfer a byte from one data 
structure to another or to move data around within a single data 
structure. The move is done on a byte level so the data structure 
type is ignored. MOVER IGHT is useful for transferring bytes from the 
low end of an array to the high end. Without this procedure, a FOR 
loop would be required to pick up each character and put it d own at a 
higher address. MOVER IGHT is also much, much faster. MOVER IGHT is 
ioeal to use in an insert character routine whose purpose is to make 
room for characters in a buffer. 

MOVELEFT is useful for transferring bytes from one array to another, 
deleting characters from a buffer, or moving the values in one data 
structure to another. 

The source and destination may be any type of variable and both need 
not be of the same type. These may also be pointers to variables or 
integers used as pointers. They may not be named or literal constants. 
The number of bytes is an integer expression greater than zero. 

Watch out for these problems: 

1. Since no checking is performed as to whether the number of bytes is 
greater than the size of the destination, spilling over into the 
data storage adjacent to the destination will occur if the 
destination is not large enough to hold the number of bytes. 

2. Moving zero bytes moves nothing. 

3. No type checking is done. 
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Example: 



PROCEDURE MOVE_DEMOi 
CONST 

STRINGSZ = 80; 
VAR 

BUFFER : STR I NGCSTR I NGSZ 1 i 
LINE : STRING; 

PROCEDURE INSRT ( VAR DEST : STRING; INDEX : INTEGER; VAR SOURCE 

STRING); 

BEGIN 

IF LENGTH ( SOURCE > O STRINGSZ - LENGTH ( DEST ) THEN 
BEGIN 

MOVER I GHT< DESTC INDEX 3, DESTC I NDEX+LENGTH ( SOURCE ) 3, 

LENGTH ( DEST ) -INDEX+1 ) ; 
MOVELEFT < SOURCE C 1 ] / DESTC INDEX 1 , LENGTH < SOURCE ) ); 
DESTC 3 : =CHR ( QRD ( DEST CO 3 ) + LENGTH < SOURCE ) ) 
END; 

END; 
BEGIN 

WRITELN( *'M0VE_DEM0 ' ); 

BUFFER :=. 'Judy J. Smith/ 335 Drive/ Lovely, Ca. 95666'i 
WR I TELN( BUFFER); 
LINE : - 'Roland '; 

INSRT ( BUFFER/ P0S( '5% BUFFER) +2/ LINE) J 
WR I TELN( BUFFER ) ; 
END; 

THE OUTPUT FROM THIS PROCEDURE: 
M0VE_DEM0 

Judy J. Smith/ 355 Drive/ Lovely, Ca. 95666 

Judy J. Smith/ 355 Roland Dive/ Lovely, Ca. 95666 



3. 4. 2 EXIT 
PROCEDURE EX I T; 

EXIT is the equivalent of the RETURN statement in FORTRAN or BASIC. 
It will leave the current procedure/function or main program. EXIT 
will also load the registers and re-enable interrupts before exiting 
if EXIT is used in an INTERRUPT procedure. It is usually executed as 
a statement following a test. 

Example: 

PROCEDURE EXITTEST; 
(*EXIT THE CURRENT FUNCTION OR MAIN PROGRAM. *) 

PROCEDURE EX I TP ROC ( BOOL : BOOLEAN > i 

BEGIN 

IF BOOL THEN 
BEGIN 

WR ITELN ( 'EXITING EXITPROC); 
EXIT; 
ENDi 

WRITELN ( 'STILL IN EXITPROC, ABOUT TO LEAVE NORMALLY'); 
ENDi 

BEGIN 

WRITELN ( 'EXITTEST '); 

EXITPROC(TRUE); 

WR ITELN ('IN EXITTEST AFTER 1ST CALL TO EXITPROC); 
EXITPROC (FALSE) ; 

WRITELN ( ' IN EXITTEST AFTER 2ND CALL TO EXITPROC); 
EXIT; 

WR ITELN ( 'THIS LINE WILL NEVER BE PRINTED'); 
END; 

Output: 

EXITTEST ' 

EXITING EXITPROC 

IN EXITTEST AFTER 1ST CALL TO EXITPROC 

STILL IN EXITPROC AEOUT TO LEAVE NORMALLY * 
IN EXITTEST AFTER 2ND CALL TO EXITPROC 
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3.4.3 TSTE IT* SETBIT, CLRBIT 

FUNCTION TSTBIT< BASIC_VAR, B 1 T_NUM ) : BOOLEAN; 
PROCEDURE SETBI T< VAR BASIC_VAR, E I T_NUM ) > 
PROCEDURE CLRBIT( VAR EASIC_VAR, EITJMUM); 

TSTBIT returns TRUE if the designated bit in the basic_var is on, and 
returns FALSE if the bit is off. SETBIT sets the designated bit in the 
parameter. CLRBIT clears the designated bit in the parameter. 

BASIC_VAR is any 8 or 16 bit variable such as integer, char, byte* 
word, or boolean. BITJMUM is 0. . 15 with bit on the right. Attempting 
to set bit 10 of an 8 bit variable does not cause an error but has no 
effect on the end result. 

These procedures are useful for generating wait loops or altering 
incoming data by flipping a bit where needed. Another application is 
in manipulating a bit mapped screen. 

Examp 1 e : 



PROCEDURE TST_SET_CLR_B ITS; 



I := 0; 
SETEIT( I , 5); 
IF I =32 THEN 

IF TSTBITUi 5) THEN 
WRITELN ( 'I='» I>; 
CLRB IT ( I / 5)i 
IF I - THEN 

IF NOT ( TSTBIT ( I > 5>) THEN 
WRITELN < '1 = '* X>i 

END; 
Output: 

TST_SET_CLR_BITS 

1=32 
1=0 



C 



VAR 

I : INTEGER; 
BEGIN 

WRITELN < 'TSTJBET 



CLR BITS 



c 



o 



o 
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3. 4. 4 SHR, SHL 



FUNCTION SHR ( BAS I C_VAR» NUM) : INTEGER; 
FUNCTION SHL<BASIC_VAR, NUM ) : INTEGER; 

SHR shifts the BASIC VAR by NUM bits to the right, inserting bits. 
SHL shifts the EASIC_VAR by NUM bits to the left, inserting bits. 
DASICJMR is- an S or 16 bit variable. NUM is an integer expression. 

The uses of SHR and SHL are generally obvious. For example, suppose a 
10 bit value is to be obtained from two separate input ports. You can 
use SHL to read them in: 

VAR 

P0RT1 : ABSOLUTE CSDOOCO BYTE; 
P0RT2 : ABSOLUTE C$02323 BYTE; 

X ;= SHL(P0RT1 ?y. $1F, 3) ! ( P0RT2 & *1F>! 

The above example reads from portl, masks out the three high bits 
returned from 'the INP array, and shifts the result left Nj>.t. thi. 
result is logically OR ' d with the input from port2, which has also 
been ma s k e d . 

The following procedure demonstrates the expected result of executing 
these two functions. 



Examp le: 

PROCEDURE SHIFT_DEMO; 
VAR I : INTEGER; 
BEGIN 

WRITELNt 'SHIFT_DEMO '>; 

I : = 4; 

WR ITENLN < '1=', I); 
WR ITELN ( 'SHR (I* 2 ) = ' » SHR < I » 2 ) >; 
WR ITELN ( 'SHL( I, 4)= SHL < 1 1 4) ); 
END; 



Output: 



SHIFT_DEMQ. 
1=4 

SHR (I. 2) = 1 
SHL ( 1 1 4) =64 
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3. 4. 5 HI, LO, SwAP 



FUNCTION HI C B AS I C_VAR ) : INTEGER; 
FUNCTION LOCBASIC_VAR) : INTEGER; 
FUNCTION SWAPCBASICJMR) : INTEGER; 

HI returns the upper 8 bits of BASIC_VAR (an 8 or 16 bit variable) in 
the lower 8 bits of the result. LO returns the lower 8 bits with the 
upper 8 bits forced to zero. SWAP returns the upper 8 bits of 
EASIC_VAR in the lower 8 bits of the result and the lower 8 bits of 
BASIC_VAR in the upper 8 bits of the result. Passing an 8 bit variable 
to HI causes the result to be and passing 8 bits to LO does nothing. 

These functions enhance ATARI Pascal's abilities to read and write to 
I/O ports. If a data item has 16 bits of information to send to a port 
that can handle 8 bits at a time, use LO and HI to send the low byte 
followed by the high byte. Similarly/ reading 16 bits of data from a 
port that sends 8 bits at a time may be performed by SWAPping the 
first 8 bits into the high byte: 

VAR 

P0RT6 : ABSOLUTE CSD234 3 BYTE; 

P0RT6 : = LO<B) ; 
PORT6 := HI (8 > J 
B := SWAP ( P0RT6 ) ! P0RT6; 

The following example shows what the expected results of these 
functions should be: 

Examp 1 e: 

PROCEDURE HI_LO_SWAP; 

VAR 

HL : INTEGER; 
BEGIN 

WRITELNC 'HIJ_G_SWAP '); 

HL : = $104; 
WRITELNC 'HL=*', HL) ; 
IF HI (HL) = 1 THEN 

WRITELNC 'HI CHL)='# HI (HL) )i 
IF LOCHL) = 4 THEN 

WR I TELN ( ' LO C HL ) = ' , LO C HL ) ) ; 
IF SWAP(HL) = $0401 THEN 

WRITELNC '5WAPCHL) = ', SWAPCHL) ); 

END; 
Output: 

HI_LO_SWAP 

HL=260 
HICHL)=1 
LOCHL) =4 
SWAPCHL)=1025 
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3. 4. 6 ADDR 



FUNCTION ADDR (VARIABLE REFERENCE/ : INTEGER; 

ADDR returns the address of the variable referenced. Variable 
reference includes procedure/function names, subscripted variables an 
record fields. It does not include named constants* user defined 
types* or any item that does not occupy code or data space. 

This function is used to return the address of anything: compile time 
tables generated by INLINE, the address of a data structure to be 
used in a move statement, and so on. 

E X amp 1 e: 

PROCEDURE ADDR_DEMQ ( P ARAM : INTEGER); 
VAR 

REC : RECORD 

J : INTEGER; 
BOOL : BOOLEAN; 
END; 

ADDRESS : INTEGER; 
R : REAL* 

SI : ARRAYC 1. . ICO OF CHAR; 
BEGIN 

WR I TELN ( / ADDR_DEMO '.); 

WR ITELN ( 'ADDR (ADDR_DEMO) = '* ADDR < ADDR_DEMO ) ) ; 
WR ITELN ( 'ADDR ( PAR AM ) = ' , ADDR (PAR AM ) >; 
WR ITELN ( 'ADDR (REC ) = '* ADDR (REC ) ) ; 
WR ITELN ( 'ADDR ( REC . J> '* ADDR (REC. J) ); 
WR ITELN ( 'ADDR ( ADDRESS ) = '* ADDR ( ADDRESS > ); 
WR ITELN ( 'ADDR < R ) = ' * ADDR(R) >; 
WR ITELN ( 'ADDR (SI ) = '. ADR (SI ) > ; 
END; 

Output is system dependent. 
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3. 4. 7 SIZEOF 

FUNCTION SI ZEOFC VARIABLE OR TYPE NAME ) : INTEGER; 

SIZEOF returns the size of the parameter in bytes. It is used in move 
statements for the number of bytes to be moved. With SIZEOF you need 
not keep changing constants as the program evolves. Farameter may be 
any variable: character/ array, record, etc, or any user-defined type. 

Examp 1 e : 

PROCEDURE SIZEJDEMOi 
VAR 

B : ARRAYC1. . 103 OF CHAR; 
A : ARRAY C 1 . . 153 OF CHAR; 
BEGIN 

UIR ITELN ( 'SIZE^DEMO. ')j 

A := '*********##■***»■ *\ 
B := '0122456789'; 

WRITELNC 'SIZEOF C A) = SI ZEOFC A), ' S I ZEOF C B ) = ' , SI ZEOF C B ) > ; 
MOVECB, A, SIZEOF(B) )i 
WRITELNC'A= ',A>; 
ENDj 

Output: 

SIZE0FCA)=15 SIZE0F(B>=10 
A= 0123456789***** 
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3. 4. 8 FILL CHAR 

PROCEDURE FILLCKARC DESTINATION, LENGTH, CHARACTER ) 

This procedure fills the DESTINATION (a packed array of characters) 
with the number of CHARACTERS specified by LENGTH. DESTINATION is 
packed array of characters. It may be subscripted. LENGTH is an 
integer expression. If LENGTH is greater than the length of . 
DESTINATION, adjacent code or data is overwritten. Also, if it is 
negative, adjacent memory can be overwritten. CHARACTER is a literal 
or variable of type char. 

The purpose of FILLCHAR is to provide a fast method of filling in 
large data structures with the same data. For instance/ blanking out 
buffers is done with FILLCHAR. 

Examp 1 e: 

PROCEDURE FILL__DEMQi - 
VAR 

BUFFER : PACKED ARRAYC 1 . . 2563 OF CHAR; 
BEGIN 

FILLCHAR (BUFFER, 256, ' '); <* BLANK THE BUFFERS *> 

END; 
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3. 4. 9 LENGTH 

FUNCTION LENGTH ( STRING) : INTEGER; 

This function returns the integer value of the length of the string. 
Examp 1 e : 



PROCEDURE LENGTH_DEMO; 
VAR 

SI : STRING [403; 
BEGIN 

SI ;= 'This string is 23 characters long'; 
WR I TELN ( 'LENGTH OF '.SI, LENGTH (SI ) ) t 
WRITELNC 'LENGTH OF EMPTY STRING = ' i LENGTH ('')); 
END; 

Output: 

LENGTH OF This string is 33 characters 1 ong=33 
LENGTH OF EMPTY STRING = G 
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3. 4. 10 CONCAT 



FUNCTION CON CAT ( SOURCE! / S0URCE2, .... > SOURCE) : STRING; 

This function returns a string in which all sources in the parameter 
list are concatenated. The sources mag be string variables, string 
literals, or characters. A SOURCE of zero length can be concatenated 
with no problem. If the total length of all SOURCES " c "^ 6 . b «*" 
the string is truncated at 256 bytes. See the note under -COPY n the 
next section concerning restrictions when using both CONCAT and COPY. 

Examp le: 



PROCEDURE C0NCAT_DEM0j 
VAR 

SI , S2 : STRING; 
BEGIN 

51 := 'left link, right link'; 

52 : = 'root root root'/ 
i-JRITELN ( SI , '/ ', S2>; 

Sl := CONCAT < SI, ' ', S2, '!!!!!!'); 
WRITELN(Sl); 
END; 

Output: 

left link, right link /root root root 

left link, right link root root root !!!!!! 



3. 4. 1 1 COPY 



FUNCTION COPY ( SOURCE, LOCATION/ NUMJ3YTE) : STRING; 

Copy returns a string containing the number of characters specified 
NUMJBYTES from SOURCE beginning at the index specified in LOCATION. 
SOURCE must be a string. LOCATION and NUMJ3YTES are integer 
expressions. If LOCATION is out of bounds or is negative, no error 
occurs. If NUM_E YTES is negative or NUMJ3YTES plus LOCATION exceeds 
the length of the SOURCE* truncation occurs. 

Examp le: 

PROCEDURE CQPY_DEMO; 
BEGIN 

LONG_STR : = 'Hi from Card if f-by-the sea'; 
WRITELN <COPY(LONG_STR, 9, LENGTH (LONG_STR )-9+l > >J 
END; 



Ou t p U ti 

Card if f-by-t he-sea 
Note: 

COPY and CONCAT are "pseudo" string returning functions and have only 
one statically allocated buffer for the return value. Therefore, if 
these functions are used more than once within the same expression* 
the value of each occurrence of these functions becomes the value of 
the last occurrence. For instance, 11 IF ( CONCAT < A, STRING1 ) = 
(CONCATCA, STRING2) > " mill always be true because the concatenation of 
A and STRING1 is replaced by that of A and STRING2. Also, "WRITELN 
(C0PY(STRING1, 1,4)/ COPY ( STR I NG1 , 5, 4 ) ) " writes the second set of four 
characters in STRING1 twice. 
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3. 4. 1 



P03 



FUNCTION POS( PATTERN/ SOURCE ) 



INTEGER; 



This function returns the integer value of the position of the first 
occurrence of PATTERN in SOURCE. If the pattern is not found, a zero 
is returned. SOURCE is a string and PATTERN is a string, a character, 
or a literal. 

E r. amp 1 e: 



PROCEDURE POS_DEMQ; 
VAR 

STR, PATTERN : STRING; 
CH : CHAR/ 
BEGIN 

STR := ' ABCDEFOH I JKLMNO ' i 
PATTERN : = 'FGHXJ'l 
CH :- 'B'i 

WRITELNC'pos of * , PATTERN* * in ' 
WRITELNC'pos of ' , CH, ' in ',STR» 
WRITELNC 'pos pf "z" in ', STR, ' 
END; 



STR,' is ', POS (PATTERN, STR > ) ; 
is ' , POS(CH, STR) ); 
is ', POS( 'z STR) \ ; 



Output: 

pos of FGHIJ in ABCDEFGH I JKLMNO is 
pos of B in ABC DEFGH I JKLMNO is 2 
pos of 'z ' in ABC DEFGH I JKLMNO is O 
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3. 4. 13 DELETE 



PROCEDURE DELETE (TARGET. INDEX, SIZE), 

This procedure is used to remove SIZE characters from TARGET/ 
beginning at the byte named in INDEX. TARGET is a string. INDEX an 
SIZE are integer expressions. If SIZE is zero, no action is taken, 
it is negative/ serious errors result. If the INDEX plus the SIZE i 
greater than the TARGET or if the TARGET is empty, the data and 
surrounding memory can be destroyed. 

Examp 1 e : 

PROCEDURE DELETE_DEMO; 
VAR 

LON©_STR : STRING; 
BEGIN 

LONGEST R :-' get rid of the leading blanks'/ 

WRITELN(LONG_STR>; 

DELETE ( LONG_STR , 1 , P OS ( ' g ' . LONG_STR >-l >; 
WRITELN(LONG_STR ) ; 
END; 

Output: 

get rid of the leading blanks 
get rid of the leading blanks 



3. 4. 14 INSERT 



PROCEDURE INSERT C SOURCE, DESTINATION, INDEX) j 

This procedure is used to insert the SOURCE into the DESTINATION at 
the location specified in INDEX. DESTINATION is a string. SOURCE is 
character or string, literal or variable. INDEX is an integer, 
expression. SOURCE can be empty. If INDEX is out of bounds or 
DESTINATION is empty, destruction of data occurs. If inserting SOURCE 
into DESTINATION causes DESTINATION to be longer than allowed 
DESTINATION is truncated. 

E 7. amp 1 e : 

PROCEDURE INSERTJDEMOi 
VAR 

LQNGJ3TR : STRING; 
SI : STRING C103; 
BEGIN 

LONG STR : = 'Remember May 9'i 
SI : = 'Mother 's Day, 
INSERTCSl, LONG_STR, 10>; 
WR I TELN < LQNG_STR ) ; 

I NSERT ( 'to celebrate LONG_STR, 10) ; 
WRITELN<LONG_STR); 
END; 

Output: 

Remember Mother's Day, May 9 

Remember to celebrate Mother's Day, May 9 



3. 4. 15 ASSIGN 



PROCEDURE ASSIGN (FILE, NAME); 



Use this procedure to assign an external filename to a file variable 
prior to a RESET or REWRITE. FILE is a filename* NAME is a literal or 
a variable string containing the name of the file to be created. FILE 
must be of type TEXT to use the special device names below. 

Note that standard Pascal defines a "local" file. ATARI Pascal 
implements this facility using temporary filenames in the form 
PASTMP x x where " x x " is sequentially assigned, starting at zero at the 
beginning of each program. If an external file REWRITE is not 
preceeded by an ASSIGN/ then a temporary filename will also be 
assigned to this file before creation. 

NAME is normally a diskette filename in the standard format: 
dn: filename, ext but can also be a special device name. 



Device Names 



Console screen editor device 

Console screen output device 

Console keyboard input device 

Printer output device 



NOTE: Cassette <C:> files are not supported by ATARI Pascal 



Examples of ASSIGN usage: 

ASSIGN ( PR INTF ILE, 'P: ' ); 
ASSIGN CF, 'D2: MT280. DVL ' ) I 
ASSIGN ( KEY BOARD i 'K: 
ASSIGNtCRT, 'S: ' >; 

Note: After ASSIGN<CRT, 'S: ' > you must use REWRITE, as the assign 
does not open the file. 
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3. 4. 16 W, ' 4E ' GNB 

FUNCTION GNB<FILEvAR: ^JJ-^ ?^ CHARi " CH^CHAR ) : BOOLEAN! 

FUNCTION WNB (FILEVAR: FILE OF CHAR. ^ ^ 

Th ... factions allow you to have EYTE-level *tc = ^ ° t * Ug , Pack.d 
Arr ay Of Char. The size of the packe 

128 -- 4095 - .,.„... It returns a value of 

valid when the physic 

snd-of rue is - file and 

■ ■ T+- rPOUlTSS « ' *• c 

, k.^p at a time, ieM -. , ; & th P re 



GNB .ill 1^ you read a • **u„ when the physical 

^' d ! or ^ l8 T is ^cp e iir-:i".«- ^ any data in the f 

_ . , b u ^ e at a time. It r 

IB will let y° u write a .lie a « , value tha 

" a character to write. It « » bool. _ Nq int . rpr „„ 

* , n 8r ror while writing that byte 
r » on the bytes that are written. 

d0 " e ° , to p., GET/PUT combinations) because 

GNB and WNB are w.d *PP«- 
they are significantly faster. 
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3.4.17 ELOCKREAD, BLOCKWR ITE 

BLOCKREAD (F; FI LEVAR ; BUF: ANY; VAR I OR: INTEGER; SZ, RB: INTEGER); 
BLOCKWR ITE (F; FILEVAR; BUF: ANY i VAR I OR: INTEGER; SZ, RB: INTEGER ) ; 

These procedure's are used f or_ direct d i s k e 
untyped file (FILE;). BUF is any variable 
data. I OR is an integer that receives the 
SZ is the number of bytes to transfer and 



tte access. FILEVAR is an 
large enough to hold the 
returned value from the DOS. 
RB should always be 0. 



The data is transferred either to or from 
the specified number of bytes. 



the user's BUF variable for 



3. 4. 16 OPEN 



PROCEDURE OPErH : tFILEi TITLE, RESULT ) i 

The OPEN procst'ure increases the flexibility of ATARI Pascal. FILE is 
any file type variable. TITLE is a string containing the filename. 
RESULT is a Vftn INTEGER parameter and upon return from OPEN has the 
same value as IORESULT. The maximum number of files that may be opened 
at any one ti nnss is three not including Console (E:i S : , or K : ) files. 

The OPEN procsiure is the same as executing an ASSIGN( FILE, TITLE)/ 
RESET(FILE) arr.-tf RESULT := IORESULT sequence. 

Examp les: 

OPEN UNFILE. 'D: FNANE. DAT ' , RESULT); 



i 
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3. 4. 19 CLOSE, CLOSEDEL 



PROCEDURE CLOSE < FILE, RESULT >l 

PROCEDURE CLOSEDEL ( FILE, RESULT ) ; 

The CLOSE and CLOSEDEL procedures are used for closing and closing- 
wi th-delete respectively. The CLOSE procedure must be called to 
guarantee that data written to a -File using any method is properly 
purged from the file buffer to the diskette. The CLOSEDEL is normally 
used on temporary files to delete them after use. FILE and RESULT are 
the same as used in OPEN (see section 3. 4. IS). 

Files are implicitly closed when an open file is RESET. 

The CLOSE procedure is used in the file section of the appendix. 



3. 4. 20 PURGE 
PROCEDURE PURGE (FILE >i 

The PURGE procedure is used to delete a file whose name is stored in a 
string. You must first ASSIGN the name to the file and then execute 
PURGE. 

Ex amp 1 e : 

ASSIGN (F, 'B2:BADFILE. BAD <>i nAncnc PAn 

PUR0 E(F); <* DELETE D2: EADFILE. EAD *> 
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3. 4. 21 IORESULT 



FUNCTION IORESULT : INTEGER 

After each I/O operation the value returned by the IORESULT function 
is set by the run-t ime library routines. On the ATAR I Home Computer* 
the general rule is that a non-zero value means an error and zero is a 
good result. 

Examp 1 e : 

ASSIGN <Fj 'D2: HELLO ' > ; 
RESET ( F) i 

IF IORESULT O THEN 

WRITELNC 'C: HELLO IS NOT PRESENT'); 
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3. 4. 22 



MEMAVAIL, MAX AVAIL 



FUNCTION MEM A VAIL : INTEGER; 
FUNCTION MAX AVAIL : INTEGER; 

The functions MEMAVAIL and MAXAVAIL are used in conjunction with NEW 
and DISPOSE to manage the HEAP memory area in ATARI Pascal. The 
MEMAVAIL function returns the largest total available memory at any 
given time irrespective of fragmentation. The MAXAVAIL function will 
first aarbagg collect and then report the largest block available. 
The MAXAVAIL function can be used to force a garbage collection befo 
a time-sensitive section of programming. 

The ATARI Pascal system fully supports the NEW and DISPOSE mechanism 
defined by the Pascal Standard. The HEAP area grows from the end of 
the data area and the stack frame (for recursion) grows from the top 
of memory downward. 
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3.4.23 Quick Reference Guide to Built-in Procedures and Parameters 

(Alphabetical within each group: ) 

Character -array manipulation routines 

PROCEDURE FILLCHAR ( DESTINATION, LENGTH, CHARACTER ) ; 

PROCEDURE MOVELEFT C SOURCE, DESTINATION, NUM_BYTES>J 

PROCEDURE MOVER I GHT C SOURCE, DESTINATION, NUM_E YTES > ; 

Bit and byte manipulation routines 



PROCEDURE 


CLRB 


IT< 


BASIC 


_VAR, 


B I TJMUM ) ; 




FUNCTION 


HI 


( 


EASIC 


VAR 


) 


INTEGER; 


FUNCTION 


LO 


( 


BASIC 


__VAR 


) : 


INTEGER; 


PROCEDURE 


SETB 


IT( 


BASIC 


_VAR. 


B I TJMUM); 




FUNCTION 


SHL 


( 


BASIC 


_VAR, 


NUM) 


INTEGER; 


FUNCTION 


SHR 


( 


BASIC 


_VAR, 


NUM) : 


INTEGER; 


FUNCTION 


SWAP 


( 


BASIC 


IVAR 


) : 


INTEGER; 


FUNCTION 


TSTB 


IT( 


EASIC 


_VAR, 


BIT NUM) : 


BOOLEAN; 



String handling routines 



( SOURCE1, S0URCE2, . . . , SOURCEn 

( SOURCE, LOCATION, NUMJ3YTES) 

( TARGET, INDEX, SIZE >; 

( SOURCE, DESTINATION, INDEX); 

( STRING > 

( PATTERN, SOURCE) 



FUNCTION CONCAT 
FUNCTION COPY 
PROCEDURE DELETE 
• PROCEDURE INSERT 
FUNCTION LENGTH 
FUNCTION POS 

File handling routines 

PROCEDURE ASSIGN ■ ( FILE, NAME ); 

PROCEDURE ELOCKREAD ( FILE, BUF, I OR, NUMBYTES, RELBLK ) ; 
PROCEDURE BLOCKWR I TE ( FILE, BUF, I OR, NUMBYTES, RELBLN) i 
PROCEDURE CLOSE 
PROCEDURE CLOSEDEL 
.FUNCTION GNE 
PROCEDURE IORESULT 
PROCEDURE OPEN 
PROCEDURE PURGE 
FUNCTION WNE 

Miscellaneous routines 



STRING; 
STRING; 



INTEGER; 
INTEGER; 



( FILE, RESULT ); 

( FILE, RESULT )> 

( FILE ) : CHAR 

: INTEGER; 

( FILE, TITLE, RESULT ); 

( FILE ); 

( FILE, CHAR ) : BOOLEAN; 



FUNCTION ADDR ( VARIABLE REFERENCE ) : INTEGER ; 

PROCEDURE EXIT; 

FUNCTION MAXAVAIL : INTEGER; 

FUNCTION MEMAVAIL : INTEGER; 

FUNCTION SIZEOFC VARIABLE OR TYPE NAME) : INTEGER, 
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3. 5 



N on— Standard Data Access 



3. 5. 1 Absolute Variables 

Absolute var> : : = ABSOLUTE C <ccnsiant>] <var> 

ABSOLUTE variables may be declared if you know the address at 
compile time. You declare variable(s) to be absolute using 
special syntax in a VAR declaration. ABSOLUTE variables are not 
allocated any space in your data segment by the compiler and you are 
responsible for' making sure that no compiler-allocated variables 
conflict with the absolute variables. NOTE: STRING VARIABLES MAY NOT 
EXIST belou/ C$1001 in memory. 

Ezamp 1 es : 

I- ABSOLUTE C$8000 3 INTEGER; 

SCREEN: ABSOLUTE CSC000] ARRAY CO. .15 3 OF ARRAYCO. . 631 OF CHAR; 
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3. 6 INLINE 



ATARI Pascal 


has 


a very u 


s 


e f u 


1 b 


ui It 


-in f e 


ature calle 


d INLINE. 


This 


feature lets 


you 


insert d 


a 


ta 


i n 


the 


middle 


of an ATAR 


I 


p-c ode 


Pa seal proce 


dure 


or funct 


i 


on. 


In 


th i 


s ua y 


s ma 1 1 ma c h i 


ne code or 


sequences an 


d constant ta 


b 


les 


ma 


y be 


i n ser 


ted into an 


ATARI Pas 


ca 1 



p r ogram. 



3. 6. 1 Synta x 

The syntax for the INLINE feature is very similar to that of a 
procedure call in Pascal. The word INLINE is used followed by a left 
parenthesis " ( " followed by any number of arguments separated by the 
slash "/" character and terminated by a right parenthesis ")". The 
arguments between the slashes must be constants or variable references 
that evaluate to constants. These constants can be of any of the 
following types : CHAR. STRING, BOOLEAN. INTEGER or REAL. Note that a 
STRING in quotes does not generate a length byte but simply the data 
for the string. 

Literal constants of type integer will be allocated one byte if the 
value falls in the range to 255. Named, declared/ integer constants 
which will always be allocated two bytes. 

3.6.2 Applications 

The INLINE facility can be used to insert code or to build 

compile time tables. The following two sections give examples of each 

of these uses. 
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The program fragment below demonstrates houi the INLINE facility can be 
used to construct a compile time table. 



PROGRAM DEMO_INLINE; 
TYPE 

IDF I ELD = ARRAY CI. . 43 OF ARRAY CI. - 10 3 OF CHAR; 

VAR 

TPTR : * IDF I ELD j 

PROCEDURE TABLE; 
BEGIN 

INLINE ( 'ATARI ' / 



'HOME 
'COMPUTER 
' SYSTEMS. 



' / 



END; 



BEGIN (* MAIN PROGRAM *> 
TPTR := ADDR (TABLE) +5; 



(# +5 for P— code only *) 



WRITELN(TPTR' V C33 > j 



C* SHOULD WRITE 'COMPUTER 



: ) 



END. 



\ 
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3.7 Graphics and Sound Documentation 

The graphics/ sound* and controller package consists of an inclu 
file, GSPROCS, and a Pascal module, GRSND. ERL. The include file 
defines the entry points available in the Pascal module. The Pd 
module must be linked with your program. 

To use the package* type <*$ID: GSPROCS*) following the global 
variables of your program, and execute INITGRAPHICS as the first 
statement in your ma in program. 

Example: 



PROGRAM GRSND; 

LABEL 

i 

CONST 



TYPE 
VAR 

i 

(* INCLUDE THE GRAPHICS AND SOUND DEFINITIONS *) 
(#$ID: GSPROCS* ) 

<* LOCAL PROCEDURES *> 



PROCEDURE XXXX; 
BEGIN 



END; 

PROCEDURE YYYY; 
BEGIN 



END; 



<-* MAIN PROGRAM ■*> 
BEGIN 

INITGRAPHICS ( 5) ; <* INITIALIZE GRAPHICS PACKAGE WITH A MAXIMUM 

GRAPHICS MODE OF 5 * ) 



END. 



The following sections describe each of the items available in the 
graphics and sound package. 

3.7. 1 Screen Types 

TYPEs: 

SCRN_TYPE = (SPLIT_SCREEN, FULL_SCREEN> ; 
CLEARJTYPE = ( CLEAR_SCREEN> DQ_NOT„CLEAR_SCREEN) ; 

These screen types are used by the GRAPHICS procedure to define the 
type of screen and whether or not the screen will be cleared during 
the GRAPHICS procedure. 



3. 7. 2 Var iab 1 es 

VARs: 

SCRNFILE : EXTERNAL TEXT; 
GRRESULT : EXTERNAL INTEGER; 

SCRNFILE may be used to do standard Pascal I/O to the screen such as: 

WR ITE ( SCRNFILE* ' A ' > ; 

This variable will send an "A" to the screen and depending on the 
current mode/ the "A" will be displayed in some manner. Note this 
technique is normally used only in graphics modes 1 and 2. For the 
other graphics modes* use the procedures described below. 

GRRESULT is used to determine if any errors occurred during one of the 
graphics procedures. The following are the procedures and functions 
that alter GRRESULT. 



INITGRAPHICS 

GRAPHICS 

PLOT 

LOCATE 

FILL 

DRAWTO 



GRRESULT 
GRRESULT 
GRRESULT 
GRRESULT 
GRRESULT 
GRRESULT 



OK, 255 = 
OK/ 255 = 
RESULT FROM 
RESULT FROM 
RESULT FROM 
RESULT FROM 



ERROR 
ERROR 
XIO CALL 
XIO CALL 
XIO CALL 
XIO CALL 
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3.7.3 Graphic Procedures and Functions 

3.7.3.1 Initialize Procedure 
PROCEDURE INITGRAPH ICS C MAX_MQDE: INTEGER); 

INITGRAPHICS must be the first statement of a program that uses the 
graphics and sound module. There is one parameter: 

MAX J1 ODE Mazimum mode used by this program should be a value 
from to 9. 

If an error occurs, the GRRESULT = 255; otherwise; GRRESULT = 0. 

3.7.3.2 Graphics Procedure 

PROCEDURE GRAPHICS ( MODE: INTEGER; SCREEN: SCRNJTYPE; CLEAR: CLEARJTYPE); 

GRAPHICS performs the same function as the GRAPHICS statement in ATARI 
BASIC, except it has three parameters instead of one. 

f^ODE The desired graphics mode to MAX JiODE 

SCREEN FULL_SCREEN or SPLIT-SCREEN 

CLEAR CLEAR _SCREEN or DO_NOT_CLEAR_SCREEN 

If an error occurs, then GRRESULT = 255; otherwise, GRRESULT - 0. 

3.7.3.3 Textmode Procedure 
PROCEDURE TEXTMODE? 

TEXTMODE closes "S: " and reopens "E: " . GRRESULT is unchanged. 

3.7.3.4 Setcolor Procedure 

PROCEDURE SETCOLOR (REGISTER, HUE, LUMINANCE: INTEGER); 

SETCOLOR performs the same function as the SETCOLOR statement in ATARI 
BASIC. GRRESULT is unchanged. 

REGISTER A value from O to 4. Refer to section^ of the" ATARI 

400/800 BASIC Reference Manual under bfc. L ^ui_urc. 

HUE A value from to 15. Refer to sec t i on ? ofth e ATARI 

400/800 BASIC Reference Manual under -^HULUK. 

LUMINANCE A even value from O to 14. Refer to sectio 9 of the 

ATARI 400/800 BASIC Reference Manual under SE1CULUK. 
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3.7.3.5 Color Procedure 
PROCEDURE COLOR ( COLOR _VALUE: INTEGER ) ; 

COLOR performs the same function as the COLOR statement in BASIC. 

COLOR_VALUE A value from to 255. Refer to section 9 of the ATARI 
400/800 BASIC Reference Manual under COLOR. 

3.7.3.6 Plot Procedure 
PROCEDURE PLOTCX. Y: INTEGER) ; 

PLOT performs the same function as the PLOT statement in ATARI BASIC. 
It plots a point in the current color at the screen position Xi Y. 

X the horizontal coordinate on the screen. 

Y " the vertical coordinate on the screen. 

GR RESULT = value of an XIO PUT character call. 

3.7.3.7 Locate Procedure 

FUNCTION LOCATE ( Xi Y: INTEGER > : INTEGER; 

LOCATE performs the same function as the LOCATE statement in ATARI 
EASIC. It returns the pixel value at the screen position X, Y. 

X the horizontal coordinate on the screen. 

Y the vertical coordinate on the screen. 

GRRESULT = value of an XIO GET character call. 

3. 7. 3. 8 PositionProcedure 
PROCEDURE POSIT ION (X» Y: INTEGER); 

POSITION performs the same function as the POSITION statement in ATARI 
EASIC. It moves the invisible graphics cursor to position Xi Y. Note 
the cursor is not moved until the next I/O function is performed. 

X the horizontal coordinate on the screen. 

Y the vertical coordinate on the screen. 

3.7.3.9 Drauito Procedure 
PROCEDURE DRAWTOCXiY: INTEGER); 

DRAWTO performs the same function as the DRAWTO statement in ATARI 
BASIC. It draws a line from the current graphics position to position 
X, Y in the current col or. 
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X the horizontal coordinate on the screen. 

Y the vertical coordinate on the screen. 

GR RESULT = value of an XIO DRAWTO call. 



3.7.3.10 Fill Procedure 
PROCEDURE FILL ( X* Y: INTEGER); 

FILL performs the same function as the XIO 18 call in ATARI BASIC 
except it performs a plot at position X. Y to move the cursor to X» Y at 
the end of the FILL. 

X the horizontal coordinate on the screen. 

Y the vertical coordinate on the screen. 

GGRESULT = value of an XIO FILL call. 
3.7.4 Sound Procedures and Functions 

3. 7. 4. 1 Sound Procedure 

PROCEDURE SOUNDCVOICE, PITCH, DISTORTION, VOLUME: INTEGER ) ; 

SOUND performs the same function as the SOUND statement in ATARI 
BASIC. It turns on the sound channel indicated by VOICE at the 
indicated PITCH, DISTORTION, and VOLUME. 

VOICE One of the four sound channels at O to 3. 

PITCH A value between and 255. Refer to section 10 of the 

ATARI BASIC manual under SOUND. 

i 

DISTORTION A even value from to 14. Refer to section 10 of the 

ATARI BASIC manual under SOUND. 

VOLUME A value from to 15. is off; 15 is maximum volume. 



3. 7. 4. 2 So un doff Procedure 
PROCEDURE SOUNDOFF; 

SOUNDQFF turns off the sound to all the sound channels. 

3.7.5 Controller Functions 
3. 7. 5. 1 Paddles 
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3. / . 5. 1.1 Peddle Function 

FUNCTION PADDLE ( PDLNUli: INTEGER): INTEGER; 

PADDLE performs the same function as the PADDLE statement in ATARI 
EASIC. It returns the current value of one of the eight paddles. 

PDLNUM Is the paddle number to return; must be a value between 

and 7. 



-3.7.5.1.2 Trigger Function 

FUNCTION PTR IG ( PDLNUM: INTEGER ) : INTEGER; 

PTRIG performs the same function as the PTR IG statement in ATARI 
BASIC. It returns the current trigger value of one of the eight 
pad d 1 es. 

PDLNUM Is the paddle number to return; must be a value between 

and 7. 



3. 7. 5. 2 Joysticks 

3.7.5.2.1 Stick Function 

FUNCTION STICK (STKNUM: INTEGER ) : INTEGER; 

STICK performs the same function as the STICK statement in ATARI 
BASIC. It returns the current value of one of the four joysticks. 

STKNUM Is the joystick number to return; must be a value 

between and 3. 
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CHAPTER 4: RUN-TIME ERROR HANDLING 

The ATARI Pascal system supports two types of run-time checking: 
range and exception. 

Range checking is performed on array subscripts and on subrange 
assignments. The default condition of the system is that these checks 
are disabled. You may enable them around any section of coding desired 
using the 5R and *X toggles (see sections 2.2.3.4 and 2.2.3.5). These 
sections describe the implementation of this mechanism and how you may 
take advantage of this mechanism to handle run-time errors in a 
non-standard manner. 

The general philosophy is that error checks and error routines will 
set Boolean flags. These Boolean flags along with an error code will 
be loaded onto the stack and the built-in routine @ERR is called with 
these two parameters. The ©ERR routine will then test the Boolean 
parameter. If it is false then no error has occurred and the @ERR 
routine will exit back to the compiled code and execution continues. 
If it is true the @ERR routine will print an error message and lets 
you continue or abort. 

Listed below are the error numbers passed to the @ERR routine: 
Value Meaning 

1 Divide-by-0 check 

2 He apoverflow check 

3 String overflow check 

4 Range check 



4. 1 Range Checking 

When range checking is enabled the compiler generates calls to SCHK 
for each array subscript and subrange assignment. The ©CHK routine 
leaves a Boolean value on' the stack and the compiler generates calls 
to ©ERR after the @CHK call. If range checking is disabled and a 
subscript falls outside the valid range, unpredictable results will 
occur. For subrange assignments- the value will be truncated at the 
byte 1 eve 1 . 



4.2 Exception Checking 

When exception checking is enabled, the compiler will load the error 
flags Ciero divide, string overflow, and heap overflow) as needed and 
call the SERR routine after each operation that can set the flags. If 
exception checking is disabled the run-time routines attempts to 
provide a friendly action if possible: divide by zero results m a 
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maximum value being returned; heap over flow does nothing; and string , 
overflow truncates. 

4.3 User Supplied Handlers 

You can write your own ©ERR routine to be used instead of the system 
routine. You should declare the routine as: 

PROCEDURE GERR (ERROR: BOOLEAN] ERRNUM: INTEGER) J 

The routine will be called; as mentioned above; each time an error 
check is needed and this routine should check the ERROR variable and 
exit if it is FALSE. You may decide the appropriate action if 
the value is true. The values of ERRNUM are as shown in section 9.0. 



4. 4 Fata 1 Errors 



"Fatal Errors" message can be deciphered for debugging purposes but 
may be confusing. The error can be translated to the Pascal error 
message and to the ATARI standard error message. The following example 
will illustrate the translation process: 



Fatal Error 64.88 — > Pascal Error . ATARI Error 

Using base 16 (non-standard; 64 — 100 and 88 — 136 

16 10 16 1 10 



A Pascal 100 error for our system refers to an operating system e 
In this example we would then look at the ATARI Error 136 message 
see that our error relates to an "EOF". 

The following are predefined Pascal fatal errors. 



64: Error while chaining. 

65: Bad pseudo code. 

66: Bad pseudo code. 

67: Undefined pseudo opcode. 

68: Stack overflow (program too complex). 
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CHAPTER 5: STRUCTURE/FORMAT OF A PASCAL PROGRAM 

This chapter describes the data types and how they are stored. It also 
discusses the use of strings. 

A description of the layout of a . COM file in memory under DOS 2. OS is 
pre sen ted. 

5. 1 Data Types 

This section describes how the standard Pascal data types are 
implemented in ATARI Pascal. Table - summarizes the data types. 



Data Type 



Size. Range 



CHAR 1 S-bit-byte 0. 255 

BOOLEAN 1 S-bit-byte false., true 

INTEGER 1 S-bit-byte \'4lt —767 

INTEGER 2 8-bit-bytes -32768. . ^2/6/ 

BYTE 1 S-bit-byte 0. . 255 

waR n 2 8-bit-bytes 0. . 65535 

FLOATING REAL 4 8-bit-bytes 1GE-9B. 

STRING 1..256 bytes 

SET 32 8-bit-bytes 0. . 255 



5. 1. 1 CHAR 



Thp data type CHAR is implemented using one B-bit byte for e^ch 
rharacter. The reserved word PACKED is assumed on arrays of CHAR. CHAK 
variables may have the range of CHR(O).. CHR(255>. When pushed on the 
stack, a CHAR variable is 16 bits, with the high-order byte containing 
00. This is to allow 0D, ODD, CHR, and WRD to work together. 



5. 1. 2 EOOLEAN 

The data type BOOLEAN is implemented using one 8-bit byte for each 
BOOLEAN variable. When pushed on the stack, 8 bits of are pushed to 
provide compatibility with built-in operators and routines. The 
reserved word PACKED is allowed but does not compress the data 
structure any more than one byte per element (this occurs with and 
without the packed instruction). ORD(TRUE) = 0001 and ORD (FALSE) = 
0000. The BOOLEAN operators AND, OR and NOT .operate only on ONE byte. 
Refer to the le and I operators for 16-bit boolean operators. 



S X * X ! X i X i X i X i X 1 0/1 S <* means don't care) 
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5. 1.3 INTEGER 



The data type INTEGER is implemented using two 6-bit bytes for each 
INTEGER variable. MAX I NT = 32767 and INTEGERS can be in the range 
-32768. . 32767. An integer subrange declared to be within the 0. . 255 
range occupies only one byte of memory instead of two bytes. Integer 
constants may be hexadecimal numbers by preceeding the hex number with 
a dollar sign (e.g. $0F3B). 

5. 1. 4 REAL 

The implementation of the data type REAL 
as that used by ATARI EASIC. Six bytes a 
implement a floating point number. The f 
mantissa s i g n * the exponent in exces s— 64 
100. The remaining five bytes contain th 
decimal. The precision is approximately S digits. 

+ /// 



n ATARI 
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the same 
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low mem Imantissa s i g n / e x p onen t excess 64! ms I ! Is [high mem 
+ /// — + 



ms = most significant bits 
Is ~ least significant bits 



5. 1. 5 Byte 

The BYTE data type occupies a single byte. It is compatible with both 
INTEGER and CHAR types. This compatibility can be very useful when 
manipulating control characters* ■ handling character arithmetic* etc. 
Characters and integers may be assigned to a BYTE. 



5.1.6 Word 

WORD is an unsigned* native machine word. All arithmetic and 
comparisons performed on expressions of type WORD are unsigned. 

5. 1. 7 String 



5. 1. 7. 1 Def ini t i on 

The pre-dec lared type STRING is like a packed array of characters in 
which the byte O contains the dynamic length of the string* and bytes 
1 through n contain the characters. Strings may be up to 255 
characters in length. The default length is 80 characters that may be 
altered when a variable of type STRING is declared (see example 
b el ow> . 
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The string "This is a Wottl.« is 16 charac ter s long The f o U o«nj 
diagram shows h.ouj these characters are scored in a ^nng 



be 20 characters long 
louJ m em il6!T:h!i!s: fiTTi la: :wT^T7Th:e:?i?l?!?' high 



mem 



If the number of characters in the string xs less th-n the 

length, the bytes on the end are not ^ f J ned - Not %^ut * reouired 
is stored in the first byte and the total number of byte, reared 

for the string is 17. 



Example: 
VAR 



LONG STR: STRING! (This may contain up to 80 

SHORf STR: STR I NGC 101 ; (This may contain up to 10 = "«*« r J 

VERY LONG STR: STRINGC2551i (This may contain up to 255 cha.acter,. 
— - the maximum allowed. ) 

5. 1.7. 2 Assignment 

Assignment to a string variable may be made via assignment 
statement, reading into a string variable using READ or READL.N* 
pre-defined string functions and procedures. 

Examp le: 

PROCEDURE ASSIGN; 

VAR — - " 

LONG_STR : STR I NG; 

SHORT_STR : STRING C123j 
BEGIN 

LQNG_STR := 'This string may contain as many as eighty characters'; 
WR I TELN ( LONG_STR > * 

WRITEC 'type in a string 10 characters or less :')i 
READLN ( SHQRT_STR ) i 
WR I TELN < SHORT_STR ) i 

SHORT_STR := COPY CLQNG_STR . 1 . 1 1 > i 
WR I TELN ( 'COPY ( LONG_STR. . > = '» SHORT_STR ) > 
END; 

Output: 

This string may contain as many as •*« h *» 'j^g^Ssa, INPUT) 
type in a string 10 characters or less . *12J*oo.r 

1 23456 

COPY (LONG_STR. . )=This string m 
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The individual characters in a string variable are accessed as if the 
string were an array of characters. Thus* normal array subcripting via 
constants, variables, and expressions a 1 loins assignment and access to 
individual bytes within the string. Access to the string over its 
entire declared length is legal and does not cause a run-time error 
even if an access is made to a portion of the string beyond the 
current dynamic length. If the string is actually 20 characters long 
and the declared length is 30 then STRING C253 is accessible. 

Examp 1 e : 

PROCEDURE ACCESS; 

VAR 

I : INTEGER; 
BEGIN 

I := 15* 

L0NG_STR := ' 123456789ab c d ef ' i 
UJRITELN(LONG_STR >i 

WR I TELN ( LONG JSTR C61i LONG STRC i-5 ])i 

LQNG_STR LI LI := 

WR I TELN ( LDNG_STR C 16] > ; 

WR I TELN < L0NG_STR ) ; (* mill still only write 15-characters *> 
END; 

Output: 

1234567B9abcdef 

6a 

* 

1234567e9abcdef 
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5. 1. 7. 3 Comparisons 

Comparisons are valid between two variables of type STRING (regardless 
of their length) or between a variable and a literal string. Literal 
strings are sequences of characters between single quotation marks. 
Comparisons may also be made between a string and a character. The 
compiler "forces" the character to become a string by using the CONCAT 
buffer! therefore/ comparison of the result of the CONCAT function and 
a character is not meaningful because this comparison would always be 
eq.ua 1. 

Examp le; 

PROCEDURE COMPARE; 
VAR 

SI, S2 : STR INGE 103 ; 
CHI : CHARi 

BEGIN 

51 := '012345678'; 

52 := '222345678 '; 

IF SI < S2 THEN 

WRITELN(S1. ' is less than ', S2); " 

SI := 'alpha beta'; 

IF SI = 'alpha beta ' THEN 

WRITELNt 'trailing blanks don ' ' t matter') 
ELSE 

WRITELNC 'trailing blanks count'); 
IF SI - ' alpha beta' THEN 

WR ITELN ( 'blanks in front don"t matter') 
ELSE 

WR ITELN ( 'blanks in front do matter'); 
IF Si = 'alpha beta' THEN 

WR ITELN (SI j ' = 'i SI >; 
SI := 'Z'; 
CHI := 'Z'; 
IF SI = CHI THEN 
WR I TELN ( 'strings and chars may be compared'); 
END; 

Output: * 

012345678 is less than 222345678 

trailing blanks don't matter 

blanks in front do matter 

alpha beta - alpha beta 

strings and chars may be compared 
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5.1.7.4 Reading and Writing Strings 



Strings may be written to a text file using the WRITE or WRITELN 
procedure. WRITELN will cause a carriage return and line feed 
following the string. Reading a string is always done via the READLN 
statement because strings are terminated with a carriage return and 
line feed. Using READ will not work, because the end-of-1 ine 
characters are incorrectly processed. Tabs are expanded when they are 
read into a variable of the STRING type. 



5. 1. 8 Set 

The SET data type is always stored as a 32 byte item. Each element of 
the set is stored as one bit. The low order bit of each byte is the 
first bit in that byte of the set. Shown below is the set "A" "Z" 
(bits 65. . 122) 

Eyte number 00 01 02 03 04 05 06 07 08 09 OA OB OC .". . IF 



Contents 00 00 00 00 00 00 00 00 FE FF FF 07 00 . . . 00 



CHAPTER 6: COMPATIBILITY 



Pascal is considerably more standardized than BASIC. Nearly every 
version of Pascal is based on a definition of the language contained 
in "Pascal User Manual and Report", by Kathleen Jensen and Niklaus 
Mirth, Spring er-Ver lag/ 1974. The Pascal Language System is a 
superset of the Pa seal described in this book. In addition, ATARI 
Pascal meets a more recent standard, namely the ISO standard 
(International Standards Organization, similar to ANSI). It is 
expected that any Pascals developed from now on will certainly be 
compared to this standard, and will strive to meet it. ATARI has 
learned the importance of compatibility from its experience with ATARI 
BASIC. A Pascal that meets the newly developed ISO standard is a very 
positive step toward compatibility. 

A possible compatibility problem is that the ATARI Pascal Language 
System is not entirely compatible with UCSD Pascal. UCSD Pascal has 
attained considerable popularity on small computers. While it is true 
that ATARI Pascal is not completely compatible with UCSD Pascal* it 
should be remembered that both versions are written around a common 
core — Pascal as defined by Jensen and Wirth. The differences, though 
present, are not as significant as, for example, the differences in 
various BASICs. In addition, the superiority of the Pascal Language 
System justifies the incompatibilities involved. 

A brief comparison of the features that differ between the two Pascals 
follows. Parts of this comparison is necessarily somewhat technical, 
as most of the differences are deep in the details of the language. 
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6.1 Incompa tab i 1 i t i es With UCSD rascal 



1. The predefined type INTERACTIVE is available only in UCSD Pascal. 
On the ATARI Computer/ any file associated with the computer console 
is automatically interactive, and therefore this type is not needed 
and would only clutter the language unnecessarily. 

2. The predefined procedure SEEK is available only in UCSD Pascal. 

3. UCSD Pascal uses UNITS to implement modular compilation. They are 
easy to understand, but are much more restrictive than ATARI Pascal's 
implementation of modular compilation. 

4. UCSD Pascal provides SEGMENT procedures to al low overlays from 
diskette. ATARI Pascal will use the standard DOS methods for invoking 
over 1 ay s. 

5. Sets can be considerably larger in UCSD Pascal. They are 
considerably faster in ATARI Pascal. The ATARI Pascal implementation 
is more in keeping with the spirit of the Jensen and Wirth standard. 



6. UCSD Pascal includes bit-level packing on PACKED structures. 
Bit-level packing costs in both the size of the interpreter/ and the 
speed of execution of the program (particularly on a machine based on 
the 6502 microprocessor which does not contain multiply and divide). ■ 

7. UCSD Pascal has a construct EXIT <procedure name> that is not 
included in ATARI Pascal/ although ATARI Pascal permits EXIT without 
the procedure name. Many Pascal purists feel that the construct as 
implemented by UCSD is not a structured construct/ and is therefore 
counter to the philosophy of the language. 

8. UCSD Pascal includes the type LONG INTEGER that is not available 
in ATARI Pascal. 



9. Several features in UCSD Pascal are operating system dependent/ 
e.g./ long file names* and unit I/O (similar to XICJ). These have not 
been implemented in ATARI Pascal. 
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6.2 Additional Features Available with the ATAR I Pascal Language 
Sy s t em 



1. The ATARI Pascal Language System is a complete ISO standard 
Pascal, Some of the ISO features not included in UCSD Pascal are 
conformant array handling* procedures and functions as parameters* 
local files* PACK and UNPACK procedures* READ and WRITE for non-text 
files* WRITE and WRITELN of Eoolean expressions, and GOTO out of a 
procedure into a surrounding procedure. 

2. The Pseudo code implemented in ATARI Pascal was optimized for the 
6502 microprocessor. 

3. ATARI Pascal uses the same operating system as all other ATARI 
programs. ATARI Pascal and ATARI BASIC files are the same format* and 
data files can be read by either language. You do not have the 
inconvenience of learning two different and incompatible operating 
systems*- as you do with UCSD Pascal. In addition* ATARI Pascal allows 
access to I/O in a manner very similar to ATARI BASIC. XIQ. graph icsi 
sound* game controllers* and named devices are all implemented. 

4. UCSD segment procedures are limited to six per program which limits 
the development of large applications. ATARI Pascal should allow the 
development of more complex applications. 

5. ATARI Pascal has nine or ten digits of precision on real numbers. 
UCSD Pascal has only 6. 5 digits of precision. 

6. ATARI Pascal permits the programmer to trap errors* and prevent 
programs from aborting. 

7. ATARI Pascal provides protection when reading in a string. If the 
string is too long for the receiving variable, ATARI Pascal will 
truncate the string. UCSD Pascal will overwrite the bytes following 
the string in memory* resulting in undefined program errors. 

8. ATARI Pascal has extended the CASE statement by adding an ELSE 
clause. If the case selecting expression would not result in the 
execution of a statement with the CASE, the ELSE clause is executed. 
ELSE simplifies error checking. Execution of a similar unmatched 
CASE in UCSD Pascal causes an undefined result. 

9. Modular compilation is much more flexible in ATARI Pascal. Local 
static variables* external procedures and functions located in the 
main program* and external global variable usage are all missing from 
UCSD Pascal. 



10. ATARI Pascal has a built in BYTE 
eliminates the use of confusing CASE 
characters as integers. 

11. ATARI Pascal has a built-in WORD 
data type is very useful for address 
programming. 



data type. This data type 
variant records when manipulating 

data type. An unsigned 16- bit 
arithmetic and ma c h i ne- 1 e ve 1 



lt-in WORD 
or address 
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12. UCSD Pascal does not fully implement compatibility between strings 
and characters. Strings and characters are totally compatible in 
ATARI Pascal. 

13. For system dependent applications/ ATARI Pascal allows relaxation 
of type checking rules. This relaxation allows machine I/O and memory 
manipulation to be done without cluttering the program with confusing 
CASE variant records. 

14. ATARI Pascal has the built-in bit-manipulation routines TSTBIT, 
SETBIT, CLRBIT/ SHL, and SHR. Bit manipulation in UCSD Pascal must be 
done with CASE variant records, which are confusing and machine 

d e p en d ent. 

15 In both ATARI Pascal and UCSD Pascal, the GET/PUT file I/O is 
gjjite slow. ATARI Pascal also contains GNB and WNB, which are high 
speed I/O routines for byte I/O. 

16. ATARI Pascal fully implements the NEW and DISPOSE procedures, 
including fragmentation management and re-use of disposed areas UCSD 
Pascal implements a much more restricted version of these procedures. 
This feature is vital to any program doing dynamic data management. 

17. ATARI Pascal allows full use of files. UCSD Pascal does not allow 
local files, files in records, or arrays of files. 

IS ATARI Pascal includes the ADDR function. This returns the address 
of a variable, procedure, or function. This function is useful when 
doing machine dependent programming. 

19 ATARI Pascal has a built-in INLINE feature that can be used to 
nPHPrate com P ile-time constant data. This feature eliminates run time 
initialization of constant tables, increasing execution speed and 
decreasing code size. 

20. ATARI Pascal allows output in any number base from two through 
s i x teen. 

21. ATARI Pascal allows input of either decimal or hex numbers. 

22 ATARI Pascal has not extended the parameter list on any ISO 
standard routine (specifically RESET and REWRITE). For acessing 
external files, a new procedure (ASSIGN) has been added. 
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CHAPTER 7: 



LANGUAGE DEFINITION 



7. 1 Introduction 

Chapter 7 defines the language features of ATARI Pascal that are 
common to each implementation of the compiler. It is assumed here that 
you are familiar with Jensen and Wirth's "Report" and/or the ISO draft 
standard (DPS/7185). The ATARI Pascal features that differ from those 
in the ISO standard and in Jensen and Mirth's "Report") are described 
by section. In each section/ ENF (Backus Normal Form) syntax is 
provided for reference. The complete ENF description of the language 
is present in an appendix. Each section corresponds to Wirth's 
"Report". 



SO 



7. 2 



Summary of the ATARI Pascal Language 



Features of the ISO Pascal include the data types REAL, INTEGER, CHAR/ 
BOOLEAN* multidimensional ARRAYS, user-defined RECORDS, POINTERS 
types, file variables, user-defined TYPES and CONSTANTS, and SETS 
(implemented in this version with a base type of 256 one byte 
elements). ENUMERATED types, and SUBRANGE types. 

Also included in ISO Pascal are PROCEDURES, FUNCTIONS, and PROGRAMS. 
Passing procedures and functions as parameters to a Pascal routine are 
part of the ISO standard, as well as conformant arrays. Arrays of the 
same index type and element type but different sizes may be passed to 
the same procedure. External parameters with the PROGRAM statement 
are supported at the syntax level. 

TYPED and TEXT files are supported as defined in the standard using 
the Pascal routines RESET, REWRITE, GET* PUT, READ, WRITE, READLN, and 
WRITELN. The default I/O files INPUT and OUTPUT are defined. 

All ISO statements are supported including WITH, REPEAT. . . UNTIL, CASE, 
WHILE loops, FOR loops, IF. . THEN. . ELSE, and GOTO. 

PACK and UNPACK are supported, but do not affect the outcome of the 
program (data structures are always packed at the byte level). NEW 
and DISPOSE are implemented; they allocate and deallocate HEAP space. 

Modular compilation is an extension of the ATARI compiler. Variables 
and routines may be made public and/or private and may be called from 
any other module or from the main program. 

The extended data types STRING, BYTE, and WORD are implemented in the 
ATARI Pascal compiler. The STRING type includes a length byte followed 
by the maximum number of bytes possible. Routines are supplied to 
INSERT a character or a string, DELETE from a string, find the 
Position of a character in a string, COPY a portion of one string to 
another, and CONCATenate two or more strings and/or characters 
together. BYTE is a one— byte data item for representing numbers from 
to 2'55. WORD is two bytes for the 8-bit CPU. 

Additional procedures to manage files on diskette are implemented. A 
file on diskette is associated with an internal file and may be closed 
or deleted. 

Manipulating BITS and BYTES is done using routines to TEST, SET, 
CLEAR, SHIFT RIGHT, and LEFT, return HI or LOW of a variable, and SWAP 
the high and low bytes of a variable. 

Miscellaneous routines to access items in a program are to return the 
address of a variable or routine, return the size of a variable or 
type, move a given number of bytes from one memory location to 
another and fill a data item with a certain character. Also, the 
amount of HEAP space available at any given time is accessible. 
Garbage collection on the HEAP is supported. 
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Logical operators for non~ Dooleans are implemented. 
HEX literal numbers may be used with a dollar sign ( $ > . 
Include files are supported. 

An ELSE clause on the CASE statement is provided. 

Program CHAINING is supported. Chaining is such that the code for one 
program is totally replaced by code for the next program* but heap 
space may be maintained across a CHAIN. 



c c 



o 
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7.3 Notation* Terminology 
CI e 1 1 er> 



and Vocabulary 



"d I g i t> 
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<special symbol> (reserved tuords are listed in the appendix) 



+ 


— J * \ 


/ I 


= !<> f < 


i > 




>= : ( ; 
ii i 


) : 
* ■ 


I [ 1 ! * 

i / i 
i i 


i 


(the 


foil owing 


are 


a d d i t i ona 1 


or 


< . 


. ) ! \ ! 


? ! 


1 1 1 1 A ! 
; i i i * i 





(. is a synonym for C 
. ) is a synonym for ] 
? and \i are synonyms 
! i and ! are synonyms 

Ex tens ions : 

The symbol "@ H is a legal letter in addition to those listed in the 
"Report". This symbol has been added because the run-time library 
routines are written using this special character as the first letter 
of their name. By adding "@" conflict with user names is avoided but 
users are allowed to call these routines. See section 7.4 for further 
inf ormati on. 

A comment beginning with " ( *" must end with "#)". 
■Ccomment> :;= (# < any characters > #) 
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Identifiers/ Numbers, and Strings. 



<i d en t i f i er> 
-'letter or digit> 

< digit sequence) 
< unsigned integer) 



<unsigned r ea 1) 



<unsigned number> 
-Cscale fa c t or> 
•Cs i g n) 

<s t r i ng> 



= <letter) -£<letter or digit or underscore)} 
= <letter) ! <digit> ! _ 

= < d i g i t ) « digit > > 
= % <digit sequence) ! 
<digit sequence) 



<digit sequence) 
<digit sequence) 



= < unsigned integer) 
-Cunsigned integer) 

E <scale factor) ! 
<unsigned integer) E <scale factor) 
: <uns igned integer I <uns i gned real) 
: <uns igned integer) ' <s i gnXuns igned integer) 

: + ! - 

:= '<character) «c h ar a c t er)> ' ! ' ' 



All identifiers are significant to eight characters. External 
identifiers are significant to either six or seven characters 
depending upon usage. The underscore character (_) is legal between 
letters and digits in an identifier and is ignored by the compiler 
(i.e. i A_B is equivalent to AB > . Identifiers may begin with an 
To allow declaration of external run— time routines within a 
Pascal program. Users are/ in g en era 1 j advised to avoid the "@" 
character to eliminate the chance of conflict with run-time routine 
names. 

Numbers may be hex as well as decimal. Placing a in front of an 

integer number causes it to be interpreted as a hex number by the 
compiler. The symbol <digit) now includes: "A", " B M * "C". "D'\ "E" 
and "F". These may be upper or lower case. 
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7.5 Constant Definitions 



■Cconstant identifier^- ::= < identifier} 

< constant"* : : = <uns igned number/ ' 

<sign >< unsigned numb er> • 

< constant identifier} « 

<s i gnXc ons tant identifier} ' 
<s tr ing> 

< constant definition} :: = <identifier} = <constant> 

In addition to all constant declarations available in standard Pascal* 
ATARI Pascal supports declaration of a null string constant: 

Examp 1 e : 

nul lstr = ' 



7.6 ^Data Type Definitions 

Ctype> ::=< simple type> ! 

<structured t y p e> ! 

<p o inter type> 
<type def inition>: : = < i d en t i f i er> = <type> 

7. 6. 1 Simple Types 

<simple type> ; : == -Cscaiar type> J 

<sufarange type> ! 

< type identifier^ 
•Ctype identifier> :;= <i den t i f i er> 

7. 6. I. 1 Scalar Types 

Cscalar type> ::= < -Cidentifier <, <i d en t i f i er>> ) 
7.6.1.2 Standard Types 

The following types are standard in ATARI Pascal. 

INTEGER 
REAL 
BOOLEAN 
CHAR 

BYTE 
WORD 
STRING 

Three additional standard types exist in ATARI Pascal. Refer to the 
Appendix for information on representation and usage of all standard 
and structured types. 



STRING : 


Packed 
byte 
bytes 
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is 
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BYTE : 
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■Cs u b r ang 
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7. 6.2 


Str u c 
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<constant> 
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•^structured typ e > ::= ^unpacked structured type> 

PACKED unpacked structured 
^unpacked structured type> : : = <Iar r ay type> ,' 

■(record type> ' 

<set type) ! 

<f i 1 e t y p e> 

The reserved word PACKED is detected and handled by the ATARI Pascal 
compiler as follows: 

All structures are packed at the BYTE level even if the PACKED 
reserved word is not found. 



7. 6. 2. 1 Array Types 

-Cnormal array> \ 
•Cstring array> 
STRING <max length> 
C <intconst> 3 ' 
<emp t y> 

<uns i gned int e g er> 
<i n t c ons t l d > 
<identifier> 

ARRAY C <index type> <index ty pe>>] QF 
<component type> 
<simple type> 
<It y p e> 

Variables of type STRING have a default length of 81 bytes (80 data 
characters). A different length can be specified in square brackets 
following the word STRING. The length must be a constant (either 
literal or declared, e.g., STR INGC5J or STRINGCxyz3 (where xyz is a 
constant ( x y z = 10> >. It represents the length of the DATA portion 
(i.e. one more byte is actually allocated for the length). 



t y p e> 



<array type.j- 

<s tr ing arrays 
■Cmax length?-:- 

<~. i nc ons t> 

< i n t const id> 
■Cnormal array> 

< index t y p e > 

<c omp on en t type> 
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7.6.2.2 Record Types 



Crecord type> 
Cfield list> 



Cf i x ed part> 
<record section > 

•Cvar i ant par t> 

<var i an t> 

<case label list> 
Cease label> 
<tas field> 



RECORD <f ield 1 i s t > END 
< fixed part> I 
< fixed part> ; ^variant part> ! 
-Cvariant part> 

Crecord section> -C; -Crecord secti on>3- 
-Cfield identif ier> -C, <f i eld identif ier>> 
-Ctype> ! <empty> 

CASE <tag field> <type identif ier> OF 
<variant> -C; Cvar iant>> 

<case label 1 i st> : (Cfield 1 i s t>) ! 
< e m p t y > 

Cease label> <> Cease 1 a b e 1 >> 
<constant> 
Cidentifier> : ' 
<emp t y > 



7. 6. 2. 3 

Cset type> 
Chase typel 



Bet Types 

: : = SET OF Cbase type! 
: : = 'Csimple type> 



The maximum range of a base type is 
CO. . 100003 is not legal. The set of 
but set of 0. . 256 is not. 



0. . 255. For example* a set of 
CHAR or set of 0. . 255 is lega 



7. 6. 2. 4 File Types 

< f i 1 e t y p e> : : = file { o f < t y p e > > 

Untyped files are allowed. They are used far CHAINING and are also 
used with BLOCKHEAD and BLOCKWR I TE procedures. Be extremely careful 
when using untyped files. 

When you wish to read a file of ASCII characters and use implied 
conversions for integers and real numbers use the pre-defined type 
TEXT, TEXT is NOT the same as FILE OF CHAR. It has conversion implied 
in READ and WRITE procedure calls and also may be used with READLN and 
WRITELN. A file of type TEXT is declared in the following manner: "VAR 
F : TEXT". The INCORRECT syntax for declaring a TEXT file is "VAR F : 
FILE OF TEXT". See the appendix on Pascal file handling. 

7.6.3 Pointer Types 

■Cp g inter t y p e> : : ~ "'<type identifier > 

Pointer types are identical to the standard except that weak type 
checking exists when the RELAXED type checking feature of the compiler 
is enabled (the default). In this case, pointers and WORDS used as 
pointers are compatible in all cases. 
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7.6.4 Types and Assignment Compatibility 

The most common standard Pascal question concerns type conflict 
errors messages from the compiler. Types must be identical if the 
variable is passed to a VAR parameter. Types must be compatible for 
expressions and assignment statements. To understand the difference 
betoken compatible and identical types, think of types as pointers to 
rompile-time records. If you declare a type (such as T-ARRAY L 1 . 10 J 
OF INTEGER), then anything declared as type T really points to the 
record describing type T. If, on the other hand, you declare two 
variables as follows: 

VAR 

Al : ARRAY CI.. 103 OF INTEGER? 
A2 : ARRAY CI. . 101 OF INTEGER; 

theu are not identical. The compiler created a new record for each 
tune and therefore Al and A2 do not point to the same record in memory 
at compile-time. The general rule is that if you cannot find your way 
back to a type definition, then the types are not identical. 

CHR, ORD, and WRD are type converson operators that generate no code 
but tell the compiler that the fallowing 8-bit data item is to 
be considered type CHAR, INTEGER, or WORD respectively. 

These operators may be used in expressions and with parameters except 
VAR parameters. 

Below is a section from the ISO draft standard (DPS-7185) uhich is 
available from the American National Standards Institute. The lbU 
standard definition of compatible types is as follows: 

Types Tl and T2 shall be designated compatible if any of the four 
statements that follow is true. 

(a) Tl and T2 are the same type. 

(b) Tl is a subrange of T2 or T2 is a subrange of Tl, or both Tl and 
T2 are subranges of the same host type. 

(c) Tl and T2 are designated packed or neither Tl nor T2 is 
designated packed. . 

'(d) Tl and T2 are s tr ing -t y p es* with the same number of components. 

Assignment compatibility. A value of type T2 shall be designated 
assignment-compatible with a type Tl if any of the five statements 
that follow is true. 

fa) Tl and T2 are the same type, that is neither a file-type nor 
a structured-type with file component (this rule is to be 
interpreted recursively). 

(b) Tl is the real-type and T2 is the integer-type 

( C ) Tl and T2 are compatible ordinal-types** and the value of type 
T2 is in the closed interval specified by the type Tl. 

(d) Tl and T2 are compatible set-types and all the members of the 
value of type T2 are ' in the closed interval specified by the 
base-type of Tl. 

(e> Tl and T2 are compatible string-types*. 
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At any place where the rule of assignment-compatibility is used: 

(a) It shall be an error if Tl and T2 are compatible ordinal-types^* 
and the value of type T2 is not in the closed interval specified 
by the type Tl. 

(b) It shall be an error if Tl and T2 are compatible set-types and 
any member of the value of type T2 is not in the closed interval 
specified by the base-type of the type Tl. 

* String-types in ISO Pascals are arrays of characters. 

Ordinal types are named subranges of numbers or enumerations. 

7. 7 Declaration and Denotations of Variables 

<variable> <var> ' 

<external var> ' 
<absolute var> 



<ex ternal var! 



= <EX TERNAL <var! 



<absolute var> ::= ABSOLUTE C <constant> 1 <var> 



<entire variable^ 
<c omp on ent var i a b 1 e> 
Referenced var i ab 1 e> 



ABSOLUTE variables may be declared if you know 
time. You declare variable(s) to be absolute us 
VAR declaration. ABSOLUTE variables are not all 
your data segment by the compiler and you are r 
sure that no compiler -allocated variables confl 
variables. NOTE: STRING VARIABLES MAY NOT EXIST 
This is done so that the run-time routines can 
between a string address 
Characters have the high 
the colon (: ) and before 
keyword ABSOLUTE followed 
<C. . 1): 



and a character on the 
byte of when present 
the type of variable (s 
by the address of the 



the address at compile 
ing special syntax in . 
ocated any space in 
esponsible for ma king 
ict with the absolute 

AT LOCATIONS O $100. 
detect the difference 

top of the stack. 

on the stack. After 
) , you place the 

variable in brackets 



Examp 1 es : 

I: ABSOLUTE C$800: INTEGER; 

SCREEN: ABSOLUTE C$C 00013 ARRAYCO. 



153 OF ARRAYCO. . 631 OF CHAR; 
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7. 7. 1 



Entire Variables 



-Cent ire var i a b 1 e> :; = <var i able identifier > 

<va riable identifier) :: = <identifier> 

7.7.2 Component Variables 

<~.c opponent var i ab 1 e> : : — -Cindexed var iab 1 e> { 

•Cf ield designator) J 
N <file buffer) 

7. 7. 2. 1 Indexed Variables 

-Cindexed variab le> ::= <ar r ay variable> C<e x press i on) -Ci <e x p ress i on>> 1 
<array variab le> : : = <Cvar i a b 1 e ) 



STRING variables are to be treated as a PACKED array of CHAR for 
subscripting purposes. The valid range is 0. . maxlength/ where 
maxlength is SO for a default length. 

7.7.2.2. Field Designators 

-.field designator?^* ;: = <r ec or d variable) . Cfield identifier) 
<r e cord var i ab 1 e> : : = < var i a b 1 e) 
•Cfield identifier) ::= <i d en t i f i er> 

7.7.2.3 File Buffers 

<file buffer> : : = <file variable)* 
•Cfile variable) ::= -Cvariable) 

7.7.3 Referenced Variables 

^.referenced variable> :: = < pointer variabls> A 
<pointer variable) : : = <variable> 
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7.8 Expressions 



', unsigned constants 



< f a c t o r > 



<set> 

<e 1 ement 1 i s t> 
<e 1 ement> 
<term> 

<simple expression> 



.express ion/ 



= -Consigned number) « 
<s t r ing> , > 

NIL { 
<c ons tan t i d en t i f i er> 

= <var i a b 1 e> ■ 
<Linsigned constant) ' 
<f unction desi gnat or > » 
(< expression)) ■ 
<logical NOT operator) <factor> 
<set> 

= C <element list> ] 

= -Telement) -it <element)> ' 
<emp t y) 

= ^expression) • 

<ex press ion) <ex press ion) 
= < factor) <mul tip lying operator) <f actor) 
= -Cterm) ' 

<simple expression) Padding operator) <term)! 

<adding operator) -Cterm) 
= <simple expression) ' « 

<simple expression) -Crelatianal operator) 
< simple expression) 



An additional category of operators on 16~b i t variables are &# I 
(also \)i (also \ and ?) denoting AND, OR and ONE'S complement NOT/ 
respectively. These have the same precedence as their equivalent 
boolean operators and accept any type of operand with a sire <= 2 
bytes. 
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7. 8.1 Op era t or s 

7.8.1.1 The Operator NOT 

<logical NOT operator} : : =NOT ! \ ! ? 

\ and ? are NOT operators for non- Boolean operators. 

7.8.1. 2 Multiplying Operators 

Multiplying operator> ::=*!/! DIV i MOD ! AND \ & 

& is an AND operator on non-Boolean operators. 

7.8.1.3 Adding Operators 

<ad d ing operator} + ! - S OR I ! ! ! 

! (synonym !) is an OR operator on non-Boolean operators. 

7.8.1.4 Relational Operators 

-Crelational operators> : : = - ! O i < I c -~ ! >= ! IN 
7.8.2 Function Designators 

<f unc t ion designator} ::= ''.function identifier} _ « 

<f unction identifier} < <parm> -C* <parm>> 
<function identifier} : : - <ident i f ier> 



7.9 Statements 



Csta t ementS 

•Cunlabelled statement 
<la b e IS 



= < I a b e 1 S : 'Tun I ab e 1 1 ed statements ] 

■Cunlabelled statements 
- -Csimple statements | 

-'structured statements 
= < unsigned integers 



7. 9. 1 



imple Statements 



<simple statements ::= ^assigned statements 

<procedure statements 
<g o to statements 
<empty statements 

<emptg statements ::= <emptyS 



7. 9. 1. 1 Assignment Statements 

^assignment statements :: = -CvariableS : = <e x press i onS 

<f unction identifiers := C expressions 

To the list of exceptions to assignment compatibility add: 

1. Integer expressions may be assigned to variables of type pointer 
For e xamp 1 e : 

TYPE X = RECORD 

(# field declarations *> 
END; 
VAR P : rt X ; 

I : INTEGER; 



. P ;= I+li 

2. Expressions of type CHAR may be assigned to variables of type 
STRING. 

3. Variables of type CHAR and literal characters may be assigned to 
variables of type BYTE. 

4. Expressions eva luting to the type WORD may be assigned to pointer 
var i a b 1 es . 

5. Expressions evaluating to the type INTEGER may be assigned to 
variables of type WORD. 



<9 
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7. 9. 1. 2 Procedure Statements 

-procedure statement* = procedure i d en t i f i er*«parm> *,<parm>» 1 

■C procedure identifier* 
-fprocedure identifier*: : ■ <identifier> 
<parm* : : = <procedure identifier* 

<If unc t ion identifier 

<expression* 

<var iab 1 e* _ . - . 

The maximum number of parameters for a procedure or function is fifty 

(50). 

7.9. 1.3 GOTO Statements 
<goto statement* : :,'= goto <label* 

7. 9. 2 Structured Statements 

structured statement* : Repetitive statement* 

<cand it ional statements 
<c omp o und statement* 
<tti i £ h statement* 

7. 9. 2. 1 Compound Statements 

i , - nrATM ^cf^tement* <statement*> END 

^compound statements :: - BEGIN ^staTemen 

7.9.2.2 Conditional Statements 

--conditional statement* :: = <case statement* ! 

<if statements 

7. 9. 2. 2. 1 If Statements 

<if statement* : ; = IF <expression* THEN statement* ELSE statement* I 

IF Expression* THEN '-statement* 

7. 9. 2. 2. 2 Case Statements 

Ease statement* :: = CASE Expression* OF 

<case list* <> Ease lxst» 

{ELSE <statement*> 

END 

t - j.- ■- - -'UKpI list* : --'statement* ! 

•Cease list.' . . - Sw.xa.oe a ii^v^ 

Empty* 

Clabel list* • ::= <case label* <.<c*s* labels> 

^case label* Eon-real short scalar constants 

, . . . c 3rt pi SF r clause on the CASE statement. In 

ATARI Pascal implements an ELSE clause cm match any f the case 

addition, if the selecting expression does not match any 
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selectors, the program flow will "drop through" the CASE statement. 
The standard says this condition is an error. 

Examp 1 e : 

CASE CH OF 

'A ' : WR ITELN ( 'AM; 
'G' : WR ITELN ( 'Q ' ) i 
ELSE 

WR I TELN ( 'NOT A OR Q ' ) 

END 

7.9.2.3 Repetitive Statements 

^repetitive statements :: = -Crepeat statements ! 

<wh i 1 e statements ! 
<for statements 



7.9.2.3.1 While Statements 

-Ouhile statements :: = WHILE <e x p r e s s i onS DO <statementS 



7.9.2.3.2 Repeat Statements 

-Crepeat statements : : = REPEAT --CstatementS <, <statementS> UNTIL 

<e x pr ess i onS 

7. 9. 2. 3. 3 For Statements 

<f or statements ::= FOR -CctrlvarS := <for lists DO <statementS 
<for lists ::= <expressionS DOWNTO <expressionS ! 

< expressions TO < expressions 
<ctrlvarS :: = -CvariableS 



7.9.2.4 With Statements 

■Cuith statements :: = WITH -Crecord variable lists DO -^statements 

Oecord variable lists : : - <record variables {j <record variableS> 

Note that the I SO standard differs from Pascal defined by Jensen and 
Wirth in that only LOCAL variables are allowed as FOR loop control 
variables. This prevents such programming errors as the inadvertent 
use of a GLOBAL variable as a FOR control variable when nested five 
levels deep. 

You're limited to 16 FOR and/or WITH statements in a single 
procedure/function. This limitation is so that the compiler can 
allocate a fixed number of temporary locations (16 words) in the data 
segment for the procedure/function. 
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7. 10 



Procedure Declarations 



<p roc e dure dec larati on> 
<b lock> 



< procedure head ing> 



EXTERNAL '-'procedure heading> ! 
< procedure heading> <Tblock> 
< label declaration p ar t> 
< constant definition par t> 
< t y p e definition par t> 
<variable declaration part> 
<procfunc declaration part> 
<s ta t ement part> 

PROCEDURE <identifier> <parmlist> 
PROCEDURE <identif ier>; 



<parml ist> 
< f p a r m> 

<p arm g r o u p > 

<c onf ormant array > 

<c onarray 2.> 

<indxtyp> 
<or d ty p id> 

<sca 1 ar type identifi er> 
■Csubrang e type identifier 
■Clabel declaration part> 

'.constant definition par t> 
<t upe definition part> 



= ( <fparm> -C, <f parm» ) 

= <proc edure heading^ 
<f unction head ing> 
VAR <parm group> 
<parm group> 



< identifier > {, <identifier>> : 
-Ctype identifi er> 
<identifier> <> < i d en t i f i er>> : 
<conf ormant arraqZ* 

ARRAY I <indxtyp> 0<indxfcyp> 3 OF 
<c on array 2> 

<t y p e i d ent i f i er> ! 
< conformant array > 



= <i d en t i f i er>. . <i d ent i f i er> : 

= <scalar "type identifi er> 
< subrange type identifi er> 

= <identifier> 

- <ident if ier> 

=<empty> ! 

LABEL <label> <,<label>> i 

=<empty> 1 
CONST 

-^constant definition> 

<< <constant definition>> s 

= <empty> ! 
TYPE 

-Ctype definiti on> 
■C;<type definition>> ; 



!or d ty p i d> 
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•Cvariable declaration part>;: 

•Cprocfunc part> ; ; 

<p r oc or f unc> : : 

■^statement part> ; ; 



= <empty> ! 
VAR 

<variable declaration"* 

<i 'Cvariable dec laration>> i 

= -C<pr oc or f unc> ; > 

= <procedure d e c 1 ar a t i on> I 
<f unction dec lara t ion> 

= <c omp o und statement) 



e 



9 
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7. 10. 1 



standard Procedures 



r 



The following is a list of ATARI Pascal built-in procedures. See 
Chapter 3 for parameters and usage. These procedures are pr e-d e c lar _a 
in a scope surrounding the program. Therefore, any user routines or 
the same name will take precedence. 



NEW 

DELETE 

MOVELEFT 

LO 

SWAP 

ADDR . 

SIZEOF 



DISPOSE 
CGPY 

MOVER IGHT 
SETBIT 
TST3 IT 
MOVE 



EXIT 
CONCAT 
CLRBIT 
SHL 

LENGTH 
MAXAVAIL 



INSERT 

FILLCHAR 

HI 

SHR 

POS 

MEMAVAIL 



7.10.1.1 File Handling Procedures 

All standard file handling procedures are included. In ad d it ion the 
procedure ASSIGNCF, string) is added .here »F« is a file and string 
is a literal or variable string. ASSIGN assigns the * * * e ™* * Jl! 1 e nam * 
contained in the string to file F. It is used preceding a RES,_1 or 
REWRITE. See Section 3.4.15 for more details. 

Listed belouj are the names of the file handling procedures: 



GET 

ASSIGN 

OPEN 

CHAIN 

GNB 

WRITE 



PUT 

CLOSE 

BLOCKREAD 

PAGE 

WNB 

READLN 



RESET ■ 
CLOSEDEL 
BLOCKWR ITE 
I0RE5ULT 
WRITELN 



REWRITE 

PURGE 

READ 



C 
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7. 10, 1.2 Dynamic Allocation Procedures 
NEW DISPOSE 

In addition to NEW and DISPOSE, MEM AVAIL and MAXAVAIL are also 
included. 

7. 10. i. 3 Data Transfer Procedures 

PACK (A* X* Z) UNPACK (Z, A» I> 

7. 10. 2 FORWARD 

Forward procedure declarations are implemented in ATARI Pascal. It is 
recommended that this feature not be used unless strict Pascal 
conformance is required. The three pass compiler, makes forward 
declarations unnecessary. 



& 
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7. 10. 3 CONFORMANT ARRAYS 



Note that the ISO standard has added the CONFORMANT ARRAY SCHEMA for 
passing arrays of similar structure (i.e.' same number of dimensions* 
compatible index type, and same element type)* but different upper an 
lower bounds. You may now pass* for example* an array dimensioned as 
1. . 10 and an array 2. . 50 to a procedure expecting an array. You 
define the arraij as a VAR parameter and in the process of declaring 
the array* you also define variables to hold the upper and lower boun 
of the array. These upper and lower bound items are filled in at 
RUN-TIME by the generated code. To pass arrays in this manner/ the 
index type must be compatible with the type of the conformant arra^ 
bounds. 

Below is an example of passing two arrays to a procedure that 
displays the contents of the arrays on the file OUTPUT: 



PROGRAM DEMOCON; 



NATURAL = 0. . MAX INT; (*F0R USE IN CONFORMANT ARRAY DECLARATION *) 
VAR 

Al : ARRAY CI.. 103 OF INTEGER; 
A2 : ARRAY C2. . 2Q1 OF INTEGER; 

PROCEDURE DISPLAY IT ( 

VAR ARl : ARRAY C LOWBOUND J . . HIBOUND: NATURAL} OF INTEGER 

); 

<* THIS DECLARATION DEFINES THREE VARIABLES: 
ARl : THE PASSED ARRAY 

LOWBOUND : THE LOWER BOUND OF ARl (PASSED AT RUN-TIME) 
HIBOUND : THE UPPER BOUND OF ARl (PASSED AT RUN-TIME) 

*) 

VAR 

I : NATURAL; 

C« COMPATIBLE WITH THE INDEX TYPE OF THE CONFORMANT ARRAY *> 
BEGIN 

FDR I :~ LOWBOUND TO H I BOUND DO 

WRITELN( 'INPUT ARRAY C Mi ' 3= ' * AR 1 C I 3 ) 

END; 

BEGIN (# MAIN PROGRAM * ) 

DISPLAYIT(Al); (* CALL DISPLAYIT AND PASS Al EXPLICITLY AND 

1 AND 10 IMPLICITLY *> 



DISPLAYITCA2) (* CALL D I SPLAY I T AND PASS A2 EXPLICITLY AND 

2 AND 20 IMPLICITLY #) 



END. 
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7. 11 



Function Declarations 



<f unction decl> 



= EXTERNAL <f unction head i ng> I 
< function heading> < b 1 o c k > 



<f unction heading>: : = FUNCTION -C identifier XparmlistXOesult type>; I 

FUNCTION <i d en t i f i er> : ^result type> i 



result type> 



— <type identifier> 



7. 11. 1 Standard Functions 

Listed beloui are the names of the standard functions supported: 



ASS 
EXP 
ODD 
WRD 
EOLN 

MAXAVAIL 
LENGTH 



SQR 
LN 

TRUNC 
CHR 
EOF 
ADDR 



SIN 

SORT 

ROUND 

succ 

IORESULT 
SIZEOF 



COS 

ARCTAN 
ORD 
PR ED 

MEMAVAIL 
POS 



7. 11. 1. 1 Arithmetic Functions 

7. 1 1. 1. 2 Pr ed icates 

7. 11. 1.3 Transfer Functions 

WRD(x) : The value x (a variable or expression) is treated as the WORD 
(unsigned integer) value of x. Integer literal constants are not of 
type WORD! Therefore, if W is of type ward, W:=3 is illegal, and you 
must use W : = WRD(3). 



7. 11. 1. 4 Further Standard Functions 

File handling: <F is a file variable. See files in appendix. ) 

PUT(F) GETCF ) RESET (F) REWRITE(F) PAGE ( F ) EOF ( F ) EOLN (F) 

Dynamic Allocation: (Tn is a variant record selector, P is a pointer) 

NEW(P) NEUKPi Tl i T2# . . . t Tn) DISPOSE(P) DISPOSE <P# Tl, T2# . . . * Tn> 

Data Transfer Procedures: (See page 106 of Jensen and Wirth for a more 

complete description. ) 

PACK (A/ 1 1 Z) UNPACK C Z, A, I ) 
Arithmetic functions: 
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ABStX) OR AES(I) - special returns the type of its argument 
SQR ( X ) OR SGR(I) - if passed integer returns in teg er , etc. 

Transfer functions: < SC is a non-real short scalar) 
Implemented at compile— time and generate no code: 

GDD(BC) : BOOLEAN ORD(SC) : INTEGER CHR(SC) : CHAR WRD(SC) : WORD 
Implemented at run— time and do generate code: 

SUCC ( <any scalar type except real>> PRED ( <any scalar type except 
real>) 
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7. 12 INPUT AND OUTPUT 

ATARI Pascal supports all standard Pascal I/O facilities. 
7. 12. 1 THE PROCEDURE READ 

Reading into subranges is implemented but no range checking is 
performed/ even with range checking turned on. 

7.12.2 THE PROCEDURE READLN 

<rearfcall> :: = Read or readln> -C < <<filevar> •> <<varlist>> )> 

<read or read ln>: : ~ READ ! READLN 

<filevar> :: = <var i a b 1 e> 

<var 1 is t> :: = -Cvar i a b 1 e> -i, <var i ab 1 e>> 

7. 12.3 THE PROCEDURE WRITE 

7. 12. 4 THE PROCEDURE WRITELN 

<writecall> : : =<wr i t e or mriteln> < ( <<filevar> »> -Ce x pr 1 i s t> > > 

<u/rite or writeln> :; = WRITE ! WRITELN 
<exprlist> ::= <wexpr> {,<wexpr>> 

<uexpr> <ex press ion> £: <wi d th exp> ■£ : < d e c expr>>> 

<width e x pr> ::= <e x press i on> 

<d e c expr> ::= <expression> 

To write integers with a base other than ten use a negative decimal 
place field specifier. 

For e xamp le: 

WRITEU: 15: -16) 

<* this writes I in HEX* ) 

You may not use functions that perform input or output as a parameter 
to a WRITE or WRITELN statement. These include access routines such as 
GNB . The file pointers become modified by the reading routines* 
causing the output to be done to the input file. 

7. 12. 5 ADDITIONAL PROCEDURES 

See Section 7. 10. 1.1 

WORD input and output is not performed with the standard READ and 
WRITE procedures. Two new procedures are READHEX and WRITEHEX. These 
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new procedures allow Hex I/O on variables of any one-, two-, or 
four-byte type such as integer, char/ byte subrange/ enumerated, wor 
and long integer. See the section in Chapter 3.4 on ATARI Pascal 
extensions. 
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7. 13 PROGRAMS 
<program> 



Cprogram heading> 
<module heading> 
< p r o g parms> 



<prog ram heading> -Cb 1 oc k> . I 

<module heading> 

-Clabel declaration part> 
■Cconstant definition p ar t> 
<type definition par t> 
■Cvariable declaration part> 
<procfunc declaration p a r t > 
MOD END . 

PROGRAM <identifier> ( <prog parms> ) ; 

MODULE <identifier> ; 

<i d en t i f i er> -C» <identifi er>> 



The above is identical to the standard with the addition of modules. 
Refer to Chapter 3. 



c 



c 
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APPENDIX A: 



LANGUAGE SYNTAX DESCRIPTION 



<1 e 1 1 er> 



<d i g i t> 



A 


B 


c 


D 


E 


F 


G 


H 


I 


J 


K 


L 


M 


N 


□ 


P 


Q 


R 


s 


T 


U 


V 


W 


X 


Y 


Z 


a 


b 


c 


d 


e 


f 


g 


h 


i 


J 


k 


1 


m 


n 


o 


p 


a 


r 


s 


t 


u 


V 


Ul 


X 


y 


z 


@ 



















1 


2 


-a 


4 


5 


6 


~r 


8 


I 9 



(only a 1 lowed in HEX numbers) 



symbol) 


: : = -Ct e s e 


rved 


words are listed in appendix B> 


+ j 


- ! * ! 


/ ! 


={<>{<!>: 


s — i 


>« ! ( I 


> J 


C ! 1 ' t 




. iji 


i i 




-Cthe 


following 


are 


additional or substitutions: > 


C . 1 




? 1 


! ! I ! $ i ?y i 



< . is a synonym for C 

. ) is a synonym for 1 

\/ and ? are synonyms 

Li and 1 are synonyms 



< identifier -r v 
<letter or digi / t> 
Cdigit sequenced* 
Cunsigned integer> 

■Cunsigned real> 

Cuns i gned numb er> 
<scale factor> 
<s i gn> 
Cs tr ing) 



= Cletter) -r-Cletter or digit or unscore)} 
= < 1 e 1 1 e r > I <d i g i t> I _ 
= <digit> {Cdigit)> 



$ <digit sequence) \ 
Cdigit sequence) 



<digit sequence) 
Cdigit sequence) 



^unsigned integer) 
■Cunsigned integer) 
E -'.scale factor) 

-Cunsigned integer) E Csca 1 e factor) 



Cunsigned integer) ! Cunsigned real) 
Cunsigned integer) i Cs i g n)Cuns i gned integer) 
+ ! - 

' ^character) <<c h a rac t er)> ' ! " 



<c onstant identifier) : : = -Ci d en t i f i er) 
Cc onstant) 



= Cunsigned number) 

C s i g n >Cu n signed number) 
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<c ons tant i d en t i f i er) 1 
CsignXconstant identifier) ! 
<s tr ing> 

^constant definition) ::= < identifier) - ''constant) 

< t y p e > ::=<simple type) ! 

<stru ctured t y p e> ! 
<pointer type> 

: : = Cidentifier) = <type) 

: : = --'scalar ty p e> ! 
< subrange type) ' 
<type identifier) 

::= <identifier> 

( <identif ier> <identifier» ) 
= <constant> .. <constant> 



<type definition) 
<s imp 1 e type) 

<type identifier) 
<scalar type) : : ■ 
< subrange type) :; 
< structured type) 

<unpac k ed structured type) 



<unpacked structured type) 
PACKED ^unpacked structured type) 



<arra\i type) 
<record type) 
<set type) 
<file type) 



<array type) 

<string array) 
<max length) 

<in const) 

<in t const id) 
•Cnormal avra\j> 

<index type) 
<C amp on en t type) 
Ctecord type) 
-Cfield list) 



: = -Cnormal array) ' 
<string array ) 

: = STRING <max length) 

: ~ C < inc onst) 3 ! 
< e m p t y ) 

: — <unsigned integer) • 
<int const id) 

: = <id ent i f i er) 

; = ARRAY t <index type) -C,<index type)>3 OF 
-Cc omp on en t type) 

: — -Cs imp 1 e type) 

: — < t y p e ) 

:= RECORD <field list) END 

: = <f i xed part) • 
<f i xed part) i <variant part) { 
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•Cf i x ed part> 



■Cvariant part> 
— -Crecord section > { / ■■'record section>> 



<record s"ection> ::= <field identifier> <#<field i d en t i f i er>> : <type>! 

<empty> 

^variant part> : : = CASE <tag field> <type identified OF 

<variant> {; <variant» 



Cvar i an t> 



= Cease label list. 
<ernp t g > 



(<field list>> I 



< t a 3 e label list>::= <case label> {<<case label >> 



: : = <c on s t an t> 

::= <identifier> : ! 
<empty> 

: : = SET OF -'base ty p e> 

: : - <simple type> 

;: = file {of <type>> 

: : = <var> I 
<external var> ! 
<ab solute var> 

: : = EXTERNAL <var>" 

: : = ABSOLUTE C <c onstant> 3 <var> 

:: = -Cent ire vari a b 1 e> I 
< component variable^ ! 
Referenced variable> 

Declaration of variable of type STRING: 

<identifier> -C, <i d en t i f i er>> : STRING -C C<c ons tant>X> 

Cent ire variable> :: = <variable identifier> 

<variable identifier> : : = <identifier> 

^"component variable> :: = <indexed variable > ! 

■Cfield designator> I 
<file buffer> 

•Cindexed var iab 1 e> ; : = Car ray variab le> C<e x press i on> </ <e xpr ess i on» 2 
<array var iab le> : : — <var i a b 1 e> 



-Cease label> 
<ta g f i e 1 d> 

<set type> 
■Chase type> 
<f i le type> 
<variab le> 

<e x ternal var) 
Cab so lute var> 
<var> 
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< field designator) : : : 
<record variab 1 e> :: : 
<field identifier> ::= 
<f ile buf fer) : : • 

<f i 1 e variable) :: : 
•^referenced var iab 1 e) 
< pointer var ia b 1 e) 
■^unsigned constant) 



■Crecord variable) 
<var ia b 1 e> 
< identifier) 
<file variable^ 
<var ia b 1 e> 

= <po inter variable> 
— <variable> 



<uns i g ne d numb er) 

<s tr i n g > 

NIL 

<c ons tant i dent i f ier> 



<f i el d identif i er> 



^.factor! 



<set) 

<el ement 1 ist> 
Ce 1 ement) 

<t erm) 

■Csimple e x press i on) 
<le x p r e s s i on) 



= -Cvariable) 

<un s igned constant) 
•^function designator) 
{ <e xpress i on> ) 
•Clogical not operator) <factor) 
<se t) 

= C <e 1 ement list) 1 

- <e 1 emen t) -t , <e 1 ement)> I 
< e m p t y ) 



<e x p r e ss l on^ 
< expression) 



!expressi on^ 



= <f actor) Onultlply ing operator) <f actor) 

i 

— <ter m) r \ 

<s imp 1 e expression) <adding operator) Cfcerm). 
<Iadd ing operator) <t erm) 

= <simple expression) 

■Csimple expression) Crelational operator) 
<simple expression) 



<lag ical not operator) ::= NOT ! \ 1 ? 

\ am i ? is are NOT operators for non-Bool eans. 
Multiplying operator) : : - * I / I DIV I MOD I AND i U 

St is an AND operator on non-Booleans. 
•Caddxng operator) :;=+!-! OR !!• - 
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• <=ynonym i) is an OR operator on non-Bool eans 



{relational opsrators> 
{function designator > : 

{function identifier> 
{s ta t emen tS 



= ! IN 

= ''function identifiers J 

< function identifi e r> C -CparmS {# {parmS ) 

= <i d ent i f i er> 

~ {lab e IS : <un labelled statement> ! 
<un lab e lied statements 



{unlabelled s ta t ementS: ; = {simple statement> 

^structured statement> 



<label> 

{simple statements 
{empty statements 



= <unsigned integers 

= -'assignment statements 
<proc e d ur e statements 
{goto statements 
{ empty statements 

= { e m p t y S 



<.assignment statements: := {variables := <expression> ! 

{function identifiers := {expressions 



"procedure statements 

^procedure identifiers 
p army ; 

'goto statements : 



= {procedure identifiers ( <parm> -C»<parmS> ) S 

< procedure identifi erS 
= < identifiers 



= {procedure identifiers 
< function identifiers 
<e x pr es s i onS 
<variab leS 



- goto < labels 



{structured statements: : = {repetitive statements 

{conditional statements 
{compound statements 
{with statements 

{compound statements : : = BEGIN {statements {, {s tatementS> END 

{conditional statements ::= {case statements ! 

{if statements 

{if statements ::= IF {expressions THEN {statements ELSE {statements I 

IF {expressions THEN {statements 
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•Cease statement> 



•Cease listS 



< label 1 i s t> 



— CASE <".expression> OF 
•Cease lists -C< -Cease 1 i s t >> 
{ELSE <statement» 

END 

= -Clabel lists : <s tatement> ! 
< e m p t y S 

- -Cease label S <, Cease lab e 1S> 



Oepetitive statements :: = -Crepeat statement"* { 

<wh i 1 e statements* 1 
<f or statement > 



<.wh i 1 e statements 
•Crepeat statements 

•Cfor statements 
<for list> 



= WHILE <e x press ion> DO <statement> 

: = REPEAT <statementS {, <statementS> UNTIL 
<e x p ress i onS 

= FOR <ctrlvar> := <for list> DO <s tatemen t> 

= < expressions DOWNTQ <e x pr ess i on> ! 
<e x press i on> TO <expressionS 



■Cc tr 1 var> : : = 

<uji th statements : : 
<record variable lists 
procedure declarations 

■CblockS 



var ia b 1 eS 

WITH Crec or d variable lists DO <s tatementS 
;= <r ecor d variables {, <record var iab leS> 



■Cprocedure heading 

<parml istS 
<f parmS 

<parm groupS 



:: = EXTERNAL -Cprocedure headings J 
-Cprocedure headings < b 1 o c k S - 

::= -Clabel declaration parts 

Constant definition par tS 
•Ctype definition partS 
^variable declaration parts 
-Cprocf unc declaration parts 
<s tatemen t parts 

; = PROCEDURE -Ci dent if ierS -CparmlistS 
PROCEDURE -Cidentif ierS / 
PROCEDURE INTERRUPT C ^constants 1 ; 

; = ( <f parmS <, <f parmS> ) 

■ as < procedure headings 
<f unction headings 
VAR <parm groupS 
<!parm groups 

:~ ^identifiers <> <i d en t i f i erS> : 
<ty p e identifiers 
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<conformant array) 
-Cconarray2) 

<ind x ty p) 
<ordtypid) 



■Cidentifier) C # < identifier » : 
< conformant array) 

- ARRAY C <indxtyp> -Cj <indxtyp> 1 OF 
<conarray2> 

= -Ctype identifi er) I 
'-'conformant arra\^> 

= <i d ent i f i er> .. Cidentifier) : <ordtypid> 
= <scaiar type identifier) 



<1 a b e 1 declaration part> 
<constant definition part) 

-Ctype definition par t> 



Subrange type identifier) 
<empty) ' 

LAEEL -Clabel) -C , <la b e 1>> i 

< e m p t y ) ! 
CONST 

<cons tant definition) 
<; ^constant d ef in i t i on> ; 

<empty) ! 
TYPE 

■Ctype definition. 
■C; -Ctype definition)} » 



■Cvariabie declaration part): : = 



■Ci nd x ty p) 
< o r d t y p id) 

< label declaration part) 
•Cconstant definition part) 

"Ctype definition part) 



< e m p t y ) ! 
VAR 

< va riable declaration) 



= <i den t i f i er). . <identifier) : -Cordtypid) 

- <scalar type identifier) \ 
<subrange type identifier) 

= <empty) ' 

LABEL -Clabel) -C,<label)> i 

- <empty) ! 
CONST 

<c onstant definition) 

■Ci Cconstant definition)}/ 

= < e m p t y ) t 
TYPE 

■Ctype definition) 

<; -Ctype definition)} ; 



•Cvariabie declaration part): : — 



<empty) ' 
VAR 

-Cvariabie declaration) 
{iCvariable declaration)} * 



<proc func part> 



= -C-Cproc or func> ; > 



■Cproc or f u n c > 

-'statement p a r t > 
■Cf unction decl> 

-Cf unction h e a d i n g > : 

<result type> : 
<r eadcal 1> : 
•Cread or readln> , : 
<f i 1 evar> : 
<varlist> : 
<urritecall> : 
<iur i t e or wr i t e 1 n> 
<expr 1 ist> 
<we x pr> 
-Cwidth expr> 
<dec expr> 
-Cpr ograrn> 



:: = <procedure declaration!^ ! 
<f unc t i on declarati on> 

; ; = <compound statements* 

= EXTERNAL -Cfunction h ead ing> •' 
<f unction heading> < b 1 o c k > 

= FUNCTION <i den t if ierXparml is t>: Oesul t type> 
FUNCTION <i dent if ier> : Oesult type> ; 

= <t y p e ident if ier> 

- <read or readln> < ( <<filevar> »> «varlist>> 
= READ ! READLN 

- <var i a b 1 e> 

= <variable> -C j Cvar iab 1 e>> 

=<write or iur i t e ln> { ( <Cfilevar> / > -Cexpr 1 i st> 
:= WRITE ! WRITELN 
: = <wexpr> <,<iuexpr> 

:= <expression> -C ; <uj i d t h expr> -C:<dec expr>>> 
; : — <expression> 
:: = -Ce x press i on> 

;:■"== -Cprogram heading> <block> . I 
-Cmodule heading > 

< 1 a b e 1 declaration par t> 
<c ons tan t definition par t> 
<type definition par t> 
^variable declaration part> 
Cproc func declaration part> 
MODEND . 



<program heading?.* ::= PROGRAM <identif ier> ( <prog parm> ) i 

■Cmodule heading> :: = MODULE Cident if ier> ; 

Cprog parms> : : = < i d en t i f i er> <> <i d en t i f i er>> 



APPENDIX B: RESERVED WORDS 

The following are the reserved words in ATARI Pascal 

AND DOWNTO GOTO NOT RECORD UNTIL 

ARRAY ELSE IF OF ' REPEAT VAR 

BEGIN END IN OR SET WHILE 

CONST FILE LABEL PACKED THEN WITH 

CASE FOR MOD PROCEDURE TO 

DO FUNCTION NIL PROGRAM TYPE 

ATARI Pascal also has extended reserved words: 
ABSOLUTE EXTERNAL PREDEFINED 
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APPENDIX C: ERROR MESSAGES 

Recursion stack overflow: evalution stack collision with symbol table 
correct by reducmg symbol table size, simplifying expressions. 

1: Error is simple type 
Self-explanatory. 

2: Identifier expected 
Self-explanatory. 

3: 'PROGRAM ' expected 
Self— explanatory. 

4: ' ) ' expected 

Self-explanatory. 

5: ' : ' expected 

Possibly an ■ used in a VAR declaration. 

6: Illegal symbol (possibly missing ';' on line above) 

Symbol encountered is not allowed in the syntax at this point. 

7: Error in parameter list 

Syntactic error in parameter list declaration. 

8: 'OF' expected 

Self-exDl ana t or u . 

9: ' ( ' expected 

Self-explanatory. 

10: Error in type 

Syntactic error in TYPE declaration. 

11: 't' expected 

Self-explanatory. 

12: '3' expected 

Self-explanatory. 

13: 'END ' expected 

All procedures, functions, and blocks of statements must have an 
'END'. Check for mismatched BEGIN/ENDs. 



14: 



*l * expected (possibly on line above) 
Statement separator required here. 



15: Integer expected 
Self-explanatory. 

16: '=' expected 

Possibly a : used in a TYPE or CONST declaration. 
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17: 'BEGIN' expected 
Self-e~. planatory. 



IS - Error in declaration part , . 

" Typically an illegal backward reference to a type in a pointer 

dec larat ion. 

19: Error in <f i e ld-1 i s t> 

Syntactic error in a record declaration 

20: 1 expected 

Self-explanatory. 

21: expected 

Self-explanatory. 

50: Error in constant 

Syntactic error in a literal constant 

5 1 ■ ' : = ' expected 

Self-e x p lana tory . 

52: 'THEN ' expected 
Self-explanatory. 

53: 'UNTIL ' expected 

Can result from mismatched begin/end sequences. 

54: 'DO' expected 

Syntactic error. 

55: 'TO' or 'DOWNTO' expected in FOR statement 
Self-explanatory. 

56: 'IF' expected 

Self-ex p lana tor y. 

57: 'FILE ' expected 

Probably an error in a TYPE declaration. 

5S: Error in <factor> (bad e xpression) 

Syntactic error in expression at factor levei. 

59- Error in variable . 
Syntactic error in expression at variable level. 

99: MODEND expected 

Each MODULE must end with MODEND. 

101: Identifier declared tufice 

Name already in visible symbol table. 

102" Low bound exceeds high bound . iinH 

For subrange the lower bound must be high bound. 
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103: Identifier is not of the appropriate class 

A variable name used as a type, or a type used 
as a variable, etc. can cause this error. 

104: Undeclared identifier 

The specified identifier is not in the visible symbol table. 

105: Sign not allowed 

Signs are not allowed on non-integer/non-real constants. 

106: Number expected 



o 


ft en 




came 


e 


x pr e 


s 


s i on 


t 


i e s 


h 


a ve 



107: Incompatible subrange types 

(e.g. 'A'.. ' Z ' is not compatible with 0. .9). 

108: File not allowed here 

File comparison and assignment is not allowed. 

109: Type must not be real 
Self— explanatory. 

110: <tag f i e ld> type must be scalar or subrange 
Self-explanatory. 

Ill: Incompatible with <tagfield> part 

Selector in a CASE-var iant record is not compatible with the 
\ <tagfield> type. 

112: Index type must not be real 

An aTva\^ may not be declared with real dimensions 

113: Index type must be a scalar or a subrange 
Self-explanatory, 

114: Ease type must not be real 

Ease type of a set may be scalar or subrange. 

115: Base type must be scalar or a subrange 
Self-explanatory. 

116: Error in type of standard procedure parameter 
Se If-e xplanatory. 

117: Unsa tisified forward reference 

A forwardly declared pointer was never defined. 

118: Forward reference type identifier in variable declaration 

You attempted to declare a variable as a pointer to a type not 
yet dec lar e d . 
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119: Re— specified parameters not OK for a forward declared procedure 
Self-exp lanatory, 

120: Function result type must bescalar< subrange or pointer 

A function has been declared with a string or other non-scalar 
type as its value. This is not allowed. 

121: File value parameter not allowed 

Files must be passed as VAR parameters. 

122: A forward declared function's result type can't be re-specified 
Self-exp lanatory. 

123: Missing result type in function declaration 
Self-exp lanatory. 

125: Error in type of standard procedure parameter 

This error is often caused by not having the parameters in the 
•proper order for built-in procedures or by attempting to 
read /write pointers* enumerated types, etc. 

126: Number of parameters does not agree with declaration 
Self-explanatory. 

127: Illegal parameter substitution 

Type of parameter does not exactly match the corresponding formal 
parameter. 

1 28 : Result type does not agree with declaration 

When assigning types to a function result/ the types must be 
compatible. 

129: Type conflict of operands 
Se If — e xp lanatory. 

130: Expression is not of set type 
Self-explanatory. 

131: Tests on equality allowed only 

Occurs when comparing set for other than equality. 

133: File comparison not allowed 

File control blocks may not be compared because they contain 
multiple fields unavailable to the user. 

134: Illegal type or operandCs) 

The operands do not ma'tch those required for this operator. 

135: Type of operand must be Boolean 

The operands to AND, OR and NOT must be BOOLEAN. 

136: Set element type must be scalar or subrange 
Self-exp lanatory. 
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137: Set element types must be compstiable 
Self-e x p lanatory. 

138: Type of variable is not array 

A subscript "has been specified on a non-array variable. 

139: Index type is not compatible with the declaration 

Occurs when indexing into an array with the wrong type of 
indexing expression. 

140: Type of variable is not record 

Attempting to access a non-record data structure with the 'dot' 
form or the 'with' statement. 

141: Type of variable must be file or pointer 

Occurs when an up arrow follows a variable which is not of type 
pointer or file. 

142: Illegal parameter solution 
Self-explanatory. 

143: Illegal type of loop control variable 

Loop control variables may be only local non-real scalars. 

144: Illegal type of expression 

The expression used as a selecting expression in a CASE statement 
must be a non-real scalar. 

145: Type conflict 

Case selector is not the same type as the selecting expression. 

146: Assignment of files not allowed 
Self-explanatory. 

147: Label type incompatible with selecting expression 

Case selector is not the same type as the selecting expression. 

148: Subrange bounds must be scalar 
Self-explanatory. 

149: Index type must be integer 
Self— explanatory. 

150: Assignment to standard function is not allowed 
Self— explanatory. 

1-51: Assignment to formal function is not allowed 
Self— exp lanatory. 

152: No such field in this record 
Self-exp lanatory. 

153: Type error in read 
Self-explanatory. 
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154: Actual parameter must be a variable 

Occurs when attempting to pass an expression as a VAR parameter 

155: Control variable cannot be formal or non-local 

The control variable in a FOR loop must be LOCAL. 

156: Mul t i d ef in ed case label 
Self-explanatory. 

157- Too many cases in case statement 

Occurs when jump table generated for case overflows its bounds. 

158: No such variant in this record 
Self-explanatory. 

159: Real or string tagfields not allowed 
Self-explanatory. 

160: Previous declaration was not forward 

161: Again forward declared 

162: Parameter size must be constant 

163: Missing variant in declaration - _ f 

Occurs when using NEW/DISPOSE and a variant does not exist. 

164: Substitution of standard procedure/function not allowed 

165: Multidefined label 

Label more than one statement with same label. 

166: Mul tideclared label 

Declare same label more than once. 

167: Undeclared label 

Label on statement has not been declared. 

163: Undefined Label 

A declared label was not used to label a statement. 

169: Error in base set 

170: Value parameter expected 

171 : Standard file was re-declared 

172. Undeclared external file 

174: Pascal function or procedure expected 
Self-explanatory.. 

183: External declaration not allowed at this nesting level 
Self-explanatory . 



15/.: Attempt to open library unsuccessful 
Self-ex planatory. 

191: No private files 

Files may not be declared other than in the GLOBAL variable 
section of a program or module because they must be statically 
allocated. 

193: Not enough room for this operation 
Self-explanatory. 

194: Comment must appear at top of program 

201: Error in real number - digit expected 
Self-explanatory. 

202: String constant must not exceed source line 

203: Integer constant exceeds range 

Range on integer constants are -32768. . . 32767 

250: Too many scopes of nested identifiers 

There is a limit of 15 nesting levels at compile-time. 
This includes WITH and procedure nesting. 

251: Too many nested procedures or functions 

There is a limit of 15 nesting levels at execution time, 

253: Procedure too long 

A procedure has generated code that has overflowed the internal 
procedure buffer. Reduce the size of the procedure and try again. 

259: Expression too complicated 

Your expression is too complicated (i.e. too many recursive 
calls needed to compile it). Reduce the complication using 
temporary variable. 

397: Too many FOR or WITH statements in a procedure 

Only 16 FDR and/or WITH statements are a 1 lowed in a single 
procedure (in recursive mode only) 

400: Illegal character in text 

A non-Pascal special character was found outside a quoted string. 

401: Unexpected end of input 

"End." encountered before returning to outer level. 

402: Error in writing code file/ not enough room 
Self— explanatory. 

403:. Error in reading include file 
Se lf-exp lana tor y . 
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404: Error in writing list file, not enough room 
Self-explanatory. 

405: Call not allowed in separate procedure 
Self— exp lanatory. 

406: Include file not legal 
Self-explanatory. 

407: Symbol Table Overflow 

497: Error in closing code file. 

An error occured when the . ERL file was closed. 

Make more room on the destination diskette and try again. 

500: A non-standard feature has been used when the T+ or W+ toggles 
are enabled. This is a non— fatal information-only error. 
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APPENDIX D: ATARI PASCAL FILE I/O 



The sections in this appendix describe ATARI Pascal files and how to 
use them. Since working from an example will be the most effective 
way of describing these concepts/ program examples have been included 
for each area of file handling. 



o 



The first section defines the terms used, such as "file," 
"window variable," and "TEXT. " 

The second section shows how to use all the file operation 
procedures with examples. These include ASSIGN/ RESET, REWRITE, 
sequential file access procedures, CLOSE, etc. 

The third section defines Pascal TEXT files. Sample programs 
demonstrate the use of built-in Boolean functions EOLN and EOLF, 
READLN, WR ITELN, formatted I/O, and writing to the printer. - 

The fourth section presents some less frequently used file 
op erat i ons. 
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1. DEFINITIONS 

The terms and definitions included here are arranged to logically 
discuss the concepts of files as you read through. 

FILE 

A file is data arranged in logical, equal-sized elements very much 
like an open-ended array accessed via a pointer. The size and 
arrangement of the data is controlled by your program. A file is 
generally stored on a secondary storage medium. For the purpose of 
this documentation, secondary storage is assumed to be a diskette, ion 
may write data to a file or read data from a file using the file 
operation procedures provided with ATARI Pascal. This data in the file 
mau be accessed sequentially (record 1 accessed before record 2, 
record 2 is accessed before record 3, etc), or directly. 

FILENAME 

The filename is the name of the file on diskette. It is the name 
displayed in the directory listing of the storage medium. In ATA ** 
Pascal the filename is represented in a program by a STRING <a dynamic 
sequence of ASCII characters). For example, - D2 . TEST. PAS" IS the 
filename in literal string format for the file located on drive D2 
with the name of "TEST" and the extension of ".PAS'. 

TYPE 

The type of file defines the size and format of the individual file 
elements^ the smallest accessible units of a file. For example, a file 
of type INTEGER (2 8-bytes) may be visualized as: 

+ + + + + + -+ 

10000 lOOOiOOOOOOOO 100 10000 II 00000001 ! 00000001 I00O00O0O, 

+ + + + + + * 

! record I record 1 ! record 2 

This file contains the integers 8, 33, and 1 ( stored inverted in this 
sample). The smallest retrievable element is two bytes. Seethe 
explanations of untyped files or byte files it you .ant to treat this 
file differently than a file of integers. Files may be of the standard 
Pascal scalar types: BOOLEAN, INTEGER, CHAR, or REAL. Files may also 
It'll the structured types STRING, arrays, and recor d s The pre defin d 
type TEXT is used for ASCII files. Text files are simil ^ to FILE Of 
Z?£Z _ e .,hH,-w4H«d into lines, and numbers written 



CHAR except that they are subdivided into 1 in e s . numb ers 
to them are converted to ASCII (and may be -formatted ) . and numbers 
read from them are converted to binary. A line is a s e qu ence of 
characters terminated by an end-of~line c >ara cter . mh 1 ch is us 1 1« - 
carriaqe return/line feed. Also, unlike FILE of CHAR, TEXT files Will 
accept PACKED ARRAY CI. . N 3 OF CHAR or ARRAY CI. . N 1 OF CHAR t«-it«g an 
UNPACKED ARRAY is not ISO standard), and STRINGS as data. A Boolean 
value is converted to the ASCII sequence "TRUE" or -"FALSE" on *rxte 
but the reverse .is not true. For further explanations on typed and 
text files, see the operations section. 
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A non-ISO standard concept regarding files is the UNTYPED file. This 
concept is used for fast block input and output (entire sectors are 
read or written) regardless of the kind of data contained in the fil 



FILE INFORMATION BLOCK (FIB) 

The FIB contains information necessary for the run-time routines to 
perform file operations on a disk file. The filename, the type of the 
file/ the access type (read or write), end-of— File and end-of-line 
flags, and a diskette buffer (the size of one diskette sector) are 
among the kinds of information kept in the FIB. 

WINDOW VARIABLE OR WINDOW POINTER 

The window variable is a buffer the size of a file element and is 
located just past the FIB in ATARI Pascal. A way to think of it is 
that it moves along the file and acts as a 'window' to the element of 
the file to be read or written. For this reason, it is considered^ 
pointer to the file element being accessed. It is denoted as "F^ H 
where "F" is the name of a file variable. To read from a file, the 
element which is accessible is moved to the window variable. To write 
to a file* the data must be transferred from the window variable to 
the file. 

FILE VARIABLE 

The file variable consists of a FIB and a window variable. It is the 
actual data item allocated by the compiler and referenced in a Pascal 
program. An example will clarify what a file variable's, as well as 
what the FIE and window variable are. The statement, " VAR F : FILE 
OF INTEGER; " causes the compiler to create a file variable F with its 
own FIB in the data area and its own window variable (2 bytes) to hold 
a 16-bit integer. The window variable is denoted by F"\ Suppose I is 
an integer in the same program and has the value 2. Suppose also that 
the file already contains the value 1 in the first element as below: 



+ + + +■ 



-+ + 



! OOOOOOOl i 00000000 ' \ i * 

+ + + + + + + 

H + + -J + 

S FIB 1 100000010 100000000 i window variable 
+ ++ + — + 

To write the contents of I to the file, the window variable must 
contain 2 <F~ : = I puts the contents of I into the window variable) 
and be "positioned" over the second element of the file. Given the 
command PUT(F) described in the operations section, the number 2 is 
written to the file. 



2. FUNDAMENTAL FILE OPERATIONS 



Sample programs and explanations demonstrate the use of file operation 
procedures in ATARI Pascal. You will see how to open, create* read, 
write/ delete, and close files. Demonstrated also are the use of typed 
and text files; the file status functions IORESULT, EOF, and EOLN; and 
how to assign to a window variable. 

Figure D-l lists a program named WR I TE_READ_FILE_DEMO that creates a 
typed file on diskette/ writes data to the file, closes the file, then 
re-opens the file to read the data back. The procedures used to 
perform these are ASSIGN, REWRITE, RESET, IORESULT, PUT, GET, and 
CLOSE. WRITE is used to display the results on the terminal. The 
output work is done in WR ITEFILE and the input work is done in 
READFILE. Creating/ opening, and closing the file is done in the main 
body of the program. 

The WRITELN statements on lines 37/ 43, 46, and 49 write the string 
passed to them to the default OUTPUT file (the console). This 
procedure and READLN are discussed later in this section under TEXT 
files. 

First note the form of the declaration of OUTFILE. It is declared to 
be of type CHFILE, which is defined as a FILE OF CHAR in the TYPE 
declaration section (lines 3 and 4). This is done because the file is 
passed as a parameter to the WRITEFILE and READFILE routines and a 
parameter list cannot 6eclsre a new type. For example, the following 
parameter declaraction is illegal in Pascal because only type 
identifiers are allowed in a parameter list: 

PROCEDURE WR ITEFILE < VAR F : FILE OF CHAR ) ; 



1 





PROGRAM WR I TE_READ_F I LE_DEMO ; 


2 







3 





TYPE 


4 


1 


CHFILE = FILE OF CHARi 


5 


1 


VAR 


6 


1 


OUTFILE : CHFILE, 


7 


1 


RESULT : INTEGER/ 


S 


1 


FILENAME: STR INGC 16 1 ; 


9 


1 


PROCEDURE WR ITEFILE ( VAR F : CHFILE); 


10 


1 


11 


1 


VAR CH: CHAR; ' 


12 


2 


EEGIN 


13 


2 


FOR CH: = '0' TO '9' DO 


14 


2 


BEGIN 


15 


3 


F~ : = CH;(#CHRCI + ORD<'0')>;*> 


16 


3 


PUT(F) 


17 


3 


END; 


18 




END; 


19 


1 


PROCEDURE READFILE ( VAR F : CHFILE) ; 


20 


1 


21 


1 


VAR I : INTEGER; 


22 




CH : CHAR; 
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r- 



.23 


2 


EEGIN 


_24 


2 


FOR I : TO 9 DO 


: 25 


2 


BEGIN 


26 


3 


CH : = F'-i 


27 


3 


GET(F) i 


23 


3 


WRITELN(CH) ; , 


— / 


3 


END; 


30 


2 


END; 


' 31 


1 


■ 


32 


1 


BEGIN 




1 


FILENAME : = 'TEST. DAT 'i 


— " 


1 


ASSIGN* OUTFILE, FILENAME) i 




1 


REWR I TE ( OUTF I LE ) ; 


36 


1 


IF I QRESULT =00 THEN 


37 


1 


WRITELNC 'Error creating ' , FILENAME) 


•— 'l— r 


1 


ELSE 


39 


1 


BEGIN 


40 


2 


WR I TEF I LE ( OUTF I LE > ; 


*r X 


2 


CLOSE ( OUTFILEj RESULT); 


42 


2 


IF RESULT =00 THEN 


43 


2 


WRITELNC 'Error closing ' , FILENAME ) 


44 


2 


ELSE 


45 


2 


BEGIN 


46 


3 


WR ITELN ( 'Successful close of ' , FILENAME) i 


47 


3 


RESET COUTFILE) # 


48 


3 


IF IORESULT = O THEN 


49 


3 


WR I TELN ( 'Cannot open FILENAME) 


50 


3 


ELSE 


51 


3 


READFILE ( QUTFILE ) 


52 


3 


ENDi 


53 


2 


END; 


54 


1 


END. 



c 



Figure D-l: File Input and Output. 



G 
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PROCEDURE ASS I GN ( VAR F: FILE VARIABLE; STR : STRING) ; 



Purpose: Associate the file variable F with an external file on 
diskette rnamed in STR. 

A cc I GN is the first file operation to be executed in line 34. This 
p'^cedure associates a file variable (OUTFILE) with an externa file 
on a diskette given in FILENAME (in this case it is TEST. DAT ). ine 
^trina passed to ASSIGN is placed into the FIB and the name is _ 

r ret=d. After executing the ASSIGN procedure, the file variable 
passed tcr the ASSIGN procedure is always associated with 
file name* in the name parameter until, or unless, another ASSIGN is 
done to trie file variable. 



PROCEDURES REWRITE (VAR F : FILE VARIABLE); 

Purpose- Create a file on diskette using the name in the FIB (either, 
filled in, by the ASSIGN statement previously or null (if null, a 
temporary file is created.). 

The REWRITE procedure is called in line 35 of Figure D-l. Exec ^^ 
Hl s procedure causes the creation of a file with ^e name contained 
in the FIB of F. Any existing files by that name *™ d t ^ * 
NEVER use REWRITE on a file ,hich contains usable data. In » 
R-amole, the file on diskette mill be named TEST. DAT and ** "» c «* 
on the default diskette (because no other diskette uias specified in 
^ e file name string passed to ASSIGN). 

If no previous ASSIGN had been performed, the name field of £ h * is 
empty and a temporary file is created with the name "PASTMPOO. **• 
Temporary files are generally used for scratch pad memory data 
which is not needed after execution of the program. The digits at the 
last two positions in the name are used to give each temporary file a 
uniq.ue name. 

The EOF function and the EOLN function return true ^^^^^ ^ 

Znul file OUTFILE is open only for writing sequentially and is 
an output file. uUihiLt is P /J pigment If th* operation is not 
rpady to receive data into its first element, it ™ v 
successful, the IORESULT function returns a non zero m this case 

line 36). 

FUNCTION IORESULT : INTEGER; 

Purpose : Return the integer value indicating status of file 
operation. 

The value of this function is set after any input or o u t p u t op erat ion 
and ma be checked at any time. Note in Figure D-l it "Called after 
each file operation in lines 36. 42, and 46. It is used here to stop 
the program if a file operation did not work as planned. Note that you 
cannot "WRITE C IORESULT, - because IORESULT * «/b u"™rI S Sl? s pre n ed 
operation. The meaning of the values returned by IORESULT is prese 

in Chapter 3. 
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PROCEDURE PUTCVAR F : FILE VARIABLE); 

Purpose : Transfer the contents of the window variable associated with 
F to the next available record in the file. 

Procedure WRITEFILE, beginning on line 9 of Figure D-li writes the 
characters "O" to "9" to the TEST. DAT file. The PUT procedure causes 
the data to be written to the file. Always before executing a PUT, an 
assignment is made to the window variable as in line 15. Following is 
a diagram of what is occurring: 



r 



+ + 

1 001100001 Window variable after assignment (line 15) and CH is equal 
+ + to '0'. 

+ + + + + + + 

i ! i J ! ! * 

+ + +- + + + + 

File before any PUT statement is executed. 
+ + 

! 001 10000 J Window variable after PUT in line 16. 
+ + 

+ + _ + +— + + — + 

! 001 10000 : ! i ! I ! 

+ * + + + + + 

File after the first PUT is executed in the FOR loop in Figure D 1 
lines 13 through 17. 



c 



PROCEDURE WRITE; 

PRODEDURE WRITE (expression! . . . , expression); 
PROCEDURE WR ITE ( VAR F: FILE VARIABLE, Expression, 



expression); 



Purpose : Shorthand for 'F A : = data; PUT(F); ' also performs 
conversions to ASCII on numbers when F is a TEXT file. 

Expression includes contents of variables, strings, array elements, 
constants* and expressions. When a file variable is not specified, 
the default OUTPUT file is assumed. The WRITE procedure does the same 
operations on the file as lines 15 and 16. It executes an assignment 
■followed by a PUT and is merely a shorthand version. GET and PUT are 
provided because the ISO standard requires them and in some versions 
of Pascal/ such as UCSD Pascal, WRITE can only be used on TEXT files. 



PROCEDURE CLOSE (VAR F : FILE VARIABLE; RESULT : INTEGER); 

Purpose : Flush the buffer in the FIB associated with F so all data is 
written to the diskette. 

The next statement to be executed after returning from WRITEFILE is 
line 41* where the file is closed. " CLOSE must be executed to assure 
that the data written to "TEST. DAT" is actually saved on the diskette. 
Up until this point the data is written to the buffer in memory and 
now must be saved by flushing the buffer. RESULT is the value returned 
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by the Operating System indicating whether the close is successful. It 
is included as a parameter to maintain compatibility with previous 
versions of the compiler. In this program a value of non zero means an 
error closing the file* and any other value indicates success. 

PROCEDURE RESET (VAR F : FILE VARIABLE), 

Pur pose : Open an existing file for reading. The window variable is 
moved to the beginning of the file. 

After checking RESULT, the procedure RESET is called in line 47. 
RESET opens an existing file for reading and resets the window 
variable to the beginning of the file. F^ is assigned the first 
element of F. If F is already open, RESET calls CLOSE. EOF and EGLN 
return FALSE. If a RESET is done on a file that does not exist, 
IORESULT contains a non zero. All other values of IORESULT indicate 
success. In the sample program, OUTFILE is opened by the RESET 
procedure so that it may be read. Below is a diagram of the file and 
window variable after the RESET is executed in line 47. Note that with 
non-computer console typed files, such as OUTFILE, the procedure RESET 
does an initial GET, which moves the first element of the file (in 
this case the ASCII value for the number > into the window variable. 

+ + 

{ CC11 00001 Window variable < OUTFILE") after RESET (line 47). 
+ + 

+ b ! h + -) + 

' 00 1 1 0000 i 00 1 1 000 1 ! 001 10010 ! 001 1001 1 1001 10100 ! 001 10101 I ... . 
+ + + + + + + 

The initial GET is not performed on console files or untyped files. 
You would always have to type a character before your program could 
execute, because the GET procedure is waiting for a character. 

PROCEDURE GET (VAR F : FILE VARIABLE); 

Purpose : Transfer the currently accessible record to the window 
variable and advance the window variable. 

After checking that the RESET procedure is successful, procedure 
READFILE is called in line 51. This procedure reads each element of 
the file passed to it (in this case the element is a character) and 
writes that element to the screen. READFILE begins on line 20. The 
work is done in the FOR loop of lines 24 through 29. 

The GET procedure advances the window variable by one element and 
moves the contents of the file pointed to into the window variable. 
If no next element exists, EOF becomes TRUE. See Section 3 on TEXT 
files for more details on GET and TEXT files. The diagram below 
describes what is happening within the FOR loop on lines 26 and 27 the 
first time through the loop. 



133 



! 001 10000 ! Window variable (OUTFILE) after line 26 



+ -h + + 1 ^ + 

{001 10000! 001 10001 J 001 10010 ! 001 1001 1 ! 001 10100! 001 10101 ! . . . 

+ + H + h H + 

After executing line 26, CH contains the ASCII for O (00110000). 
After executing line 27# the windou variable is advanced. 

+ + 

100110001! Windou; variable after GET in line 27. 
+ h 

+ + + + h + + 

i 001 10000 ! 001 10001 « 001 1 0010 I 001 1001 1 I 001 10100 J 001 10101 i. . . 
+ + + + + + + 



Line 22 writes the contents of CH to the default output file which is 
the computer console. Procedure READFILE displays the characters "0" 
through "9" in a column on the computer console. Calling CLOSE after a 
RESET is not necessary in the sequential case* because the file 
already exists on the diskette and has not been altered in any way. If 
OUTFILE is accessed randomlyi a CLOSE might be necessary. 

PROCEDURE READ( data, data, .... data); 

PROCEDURE READ ( VAR F : FILE VARIABLE , data, data. data)? 

Purpose: When used with non-computer console files execute "data :- 
F^i GET ( F ) j " for each data item read. When used with computer console 
files, execute "GETCFJ; data :=F A i". If F is not specified the default 
INPUT file is used. See the section on TEXT files for information on 
conversions. 

The READ procedure is the same as an assignment and a call to GET. If 
READ is used rather than GET in the current example, the FOR loop body 
would look like this: 

FOR I := TO 9 DO 
BEGIN 

READ(CH); 

WRITELN(CH) 
END; 

Reading past end-of-file on computer console input results in a system 
crash. 
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2. TEXT FILES 



DEFINITION 

A TEXT file is a file of ASCII characters subdivided into lines. A 
line is a sequence of characters terminated by a nonprintable 
end-of-line indicator, usually a carriage return and a line feed 
character. It is similar to a file of CHAR except that automatic 
conversion of numbers is performed when they are read from and written 
to the file. Also, variables of type STRING may be read from a text 
file and BOOLEAN*, STRINGS, and PACKED ARRAYs may be written to text 
files. Access to a TEXT file is via GET and PUT for character I/O 
(which do not do conversions), READ and WRITE, which have been defined 
earlier in this section, and READLN and WRITELN, which are used in 
Fiqure D-2 and defined in this section. 

Thp format of a TEXT file in memory is a FIB and a 1-byte window 
variable. On diskette, the file looks like the sample below in which a 
carriage return is represented by ">", linefeed by V" and end of file 
by " 

+ 

+ ^ 

This is a line>/This is the next line>/This is the last line>/# 



FUNCTION EOLN : BOOLEAN; 

FUNCTION EOLN ( VAR F : TEXT) BOOLEAN; 

Purpose- Indicate the state of the file be returning true only when 
the window variable is over the end-of-line character. When no file is 
specified the default INPUT file is assumed. 

This function returns true on diskette text files when the last valid 
character on a line is read using a READ statement. Because the 
s-quence of statements for a READ (on non-computer console flle *> 
is "CH •« F~; GET< F ) ; "/ the window variable is positioned over the 
end-of-line character immediately after the last character is read. 
Thus, EOLN returns TRUE on NON— COMPUTER CONSOLE TEXT files when the 
last character is read . Also, a BLANK character is returned instead 
of the end-of-line character. The above sequence is reversed on 
computer CONSOLE files ( READ is an initial call to GET f ° Uo "** ^_ an 
assignment from the window variable). When you use computer CONSOLE 
files, EOLN will return true after the carriage return / line feed is 
read instead of after the last character as in disk files. A blank is 
still returned in the character. 

FUNCTION EOF; 

FUNCTION EOF ( VAR F : FILE) : BOOLEAN; 

Purpose- Indicate the state of a file by returning true only when the 
window variable is over an end-of-file character. When no file is 
specified, the de-fault INPUT file is assumed. 
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EOF is a function that returns true when the end-of-f i 1 e character is 
read. It is similar to EOLN in that the last character read will set 
EOF to true on NON-COMPUTER CONSOLE files. On computer CONSOLE files 
tOF is true only when the end-of-f i 1 e indicator is entered. Reading 
past end-of-file on computer console files is not supported (the 
system can crash). Reading past the end of the file on diskette files 
is not supported*. A blank is returned by the window variable when EOF 
is true. Also, note that on non-text files, EOF may not become true at 
the end of the valid data because the data may not fill up the entire 
last sector of the file. 

Figure D-2 is a program that writes data to a text file and reads it 
back to be displayed on the output device. The procedure WRITEDATA 
actually writes to the TEXT file and the procedure READDATA retrieves 
the information stored in the file. The program is divided into a main 
body and two procedures to demonstrate the usefulness of breaking up 
code into blocks that perform certain functions. This method makes 
code much easier to read and debug. 

The file is declared in line 3. Note that the declaration is NOT 
"VAR F : FILE of TEXT". TEXT is treated as a special version of FILE 
of CHAR, so FILE of TEXT translates to FILE of FILE of CHAR 
(nonsensical ) . 

The program begins execution on line 25 with a call to the ASSIGN 
•procedure. Lines 25 through 29 create a TEXT file named TEXT. TST on 
the 1 ogged-in drive. If the file creation is successful/ then the 
sample data is initialized in lines 31 and 32, followed by a call to 
the WRITEDATA routine in line 33. WRITEDATA uses the WRITELN 
procedure, which is only used with TEXT files. 



PROCEDURE WRITE; 
PROCEDURE WRITELN; 

PROCEDURE WR ITELN( expr, expr, . . . expr); 
PROCEDURE WRITELN (F) i 

PROCEDURE WRITELN ( F, expr, expr, . . . expr); 

Purpose: Put the data into the file associated with F, ending the 
output with an end-of-1 ine character. If no file is specified the 
expressions are written to the OUTPUT file. A WRITELN with no 
expressions merely outputs a carriage return / line feed. The WRITE 
procedure is redefined as a conversion rather than a replacement for 
PUT. 

This procedure writes the data passed to it to the file named, placing 
an end-of-1 ine character after the last item of data written. If no 
file is named, the file is written to the default OUTPUT file. Data 
may be literal and named constants, integers, reals, subranges, 
enumerated, Booleans, strings, and packed arrays of characters, but 
may not be structured types such as records. Numeric data is converted 
to ASCII and strings are treated as arrays of characters (the length 
byte is not written to the file). 



Formatted Output 



In Figure D-2 three lines that make up the body of WR I TEDATA (9, 10, 
and 11) do the actual file output. Line 9 sends the contents of the 
variable string S f ol lowed by a carriage return / line feed to the 
TEXT file F. Line 10 formats the contents of I in a field of four 
spaces and sends this formatted output to the file F. The real number 
literal in line 11 is formatted into a field of nine spaces, four of 
which must be to the right of the decimal place. This formatted number 
is then written to the file F. The field format may be specified for 
any data type. For non-real numbers only the field width is specified, 
not the number of places after the decimal point. The data is right 
justified in the field. If a number is larger than the 6.5 significant 
digits can represent, the output is always expressed in exponental 
notation. Also, if the field width is too small to express the number 
it is written in exponential notation. For further information on 
formatting consult a Pascal textbook and experiment. 

The body of the WR I TEDATA procedure could have been written as follows 
with the same results. 

WRITELMF. S)i 

WRITELNCFi I: 4, 45.6789 : 9 : 4)i 

/ 

Control returns to the main body of the program and line 34 is 
executed. If the CLOSE is successful, the RESET in line 39 opens the 
file F (which is still associated with "TEXT. TST" on the diskette), 
moving the window variable to the beginning in preparation for. reading 
data from the file F. Following a successful RESET, the procedure 
READDATA is called to read back the information placed in TEX 
and display it at the computer console. 
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S tsment 


Nest 


Source Statement 
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PROGRAM TEXT10J3EMD; 











G 


VAR F : TEXT; 




1 


I : INTEGER* 




1 


S : STRING; 


5 


1 




"7 


1 


PROCEDURE WRITEDATA; 


£ 


1 


BEGIN 




2 


WR ITELN < Fi S)j 




2 


WRITECF, I: 4); 


11 


2 


WR ITELN (F, 45. 6789: 9: 4>l 


12 


2 


ENDi 


13 


1 




14 


1 


PROCEDURE READDATA; 


15 


1 


VAR R : REAL; 


16 


2 


BEGIN 


17 


2 


READLN (Fj S > •* 


IS 


2 


READCF* I); 


19 


2 


READ (F» R); 


20 


2 


WRITELN(S); 


21 


2 


WR ITELN ( 1 : 4/ ' ' , R: 9: 4); 


22 


2 


END; 


23 


1 




24 


1 


BEGIN 


25 


1 


ASSIGN<F, 'TEXT. TST ' ) ; 


26 


1 


REWRITE(F); 


27 


1 


IF IORESULT O THEN 


28 


1 


WR ITELN ( 'Error creating') 


29 


1 


ELSE 


30 


1 


BEGIN 


31 


2 


- ' ■ I : = 35; 


32 


2 


S : = 'THIS IS A STRING ' ; 


33 


2 


WR ITEDATA; 


34 


2 


CLOSE (F» 1)1 


35 


2 


IF IORESULT O THEN 


36 


2 


WRITELN( 'Error closing') 


37 


2 


ELSE 


38 


2 


BEGIN 


39 


3 


RESET (F) ; 


40 


3 


IF IORESULT <> THEN 


41 


3 


WR ITELN ( 'Error opening 


42 


3 


ELSE 


43 


3 


READDATA; 


44 


3 


END; 


45 


2 


END; 


46 


1 


END. 


46 







46 





Normal End of Input Reached 



Figure D-2 Text Files 
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PROCEDURE READ; 
PROCEDURE READLN; 
PROCEDURE READLN (F); 

PROCEDURE READLN ( F, variable, variable/. . . .variable); 

Purpose: Read from the file associated with F into the variables 
listed. In all cases, read until an end— of -1 ine character is found* 
skipping any unread data, and advance to the beginning of the next 
line. READ is redefined to perform conversion of reals, Eooleans, and 
in teg ers. 

READLN, like WRITELN, has as parameters an optional file variable and 
any number of variables to receive the data from the file. If the file 
variable is not specified, input is taken from the default INPUT file, 
the keyboard. The variables in the parameter list are the same type as 
the data being read from the file. Houiever, no type checking is done, 
so it is up to. you to construct a parameter 1 i st compatible with the 
format of your file. Any numbers are converted on input but the 
formatting is lost. Numbers must be separated from each other and 
other data types by a blank or a carriage return line feed. 

READLN recognizes but does not transmit the end-of-1 ine character. The 
action is to read data until it encounters an end-of— line and 
character. The action is to read data until it encounters an 
end-of-1 ine and advance the window variable to the beginning of the 
next line. The data in "TEXT. TST" looks like the following: 

THIS IS A STR ING>/ 
35 45. 6789>/# 



After reading the string in the first line to read the integer 35i you 
must use READ and not READLN. If a READLN were used here, the 35 would 
be read properly because the first blank terminates the number. 
However, the window variable would be advanced past the real number to 
the end of the file. Then, if you try to read the real, all one gets 
is EOF, and then you wonder what happened to the real number known to 
b e out there. 

STRINGS must always be read with a READLN because they are terminated 
with end-of - 1 ine characters. If the data to the file had been 'THIS 
IS A STRING 35>/ ', the value returned for S would be the entire line, 
including the ASCII 35. 

Lines 20 and 21 write the data to the computer console in the same 
format as it is contained in the file. 

After executing READDATA, the program is finished. A CLOSE is not 
necessary because the data in "TEXT. TST" is not altered in any way 
since the last CLOSE on that file. 
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Writing to the Printer 



Writing to the printer is very simple,, as demonstrated in Figure D-3. 
A file variable is declared to be of type TEXT as in line 5 of Figure 
D-3. This file variable is ASS IGNed to the printer in line 11. The 
filename 'P: passed to ASSIGN means that F is to be associated with 
the list device so that all data written to F is routed to the 
printer. REWRITE^ is called to open the list device for writing. Note 
that a CLOSE is not necessary since the data has already been written 
and the buffer does not need to be flushed. Lines 23 and 25 use 
standard Pascal formatting directives. In line 23, R is to be written 
in a field seven characters long, with three digits to the right of 
the decimal place. 



Statement 


Nest 


Source Statement 


1 





PROGRAM PRINTER; 


2 





(*WRITE DATA AND TEXT TO THE PRINTER *) 


3 







4 





VAR 


5 


1 


F : TEXT; 


6 


1 


I : INTEGER; 


7 


1 


S : STRING; - 


8 


1 


R : REAL; 


9 






10 


1 


BEGIN 


11 




ASSIGNCF, 'P: 


12 




REWRITE(F); 


13 




IF IORESULT <> THEN 


14 


1 


WRITELN* 'Error rewriting file') 


15 


1 


ELSE 


16 


1 


BEGIN 


17 


2 


S : = 'THIS LINE IS A STRING'; 


18 


2 


I : = 55; 


19 


2 


R : = 3. 141563; 


20 


2 


WRITECF, S)l 


21 


2 


WRITECF, I); 


22 


2 


WRITELN(F); 


23 


2 


WRITELN(F* R: 7: 3); 


24 


2 


WR ITE ( F, I, R ) ; 


25 


2 


WR ITE ( F, I: 4, R : 7: 3); 


26 


2 


WRITELNCF); 


27 


2 


WRITELNCF, 'THIS IS THE END. ') 


28 


2 


END 


29 





END. 


29 







29 





Norma 1 End of Input Reached 



Figure D-3 Writing to a Printer and Number Formatting 
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4. 



MISCELLANEOUS FILE ROUTINES 



A sample program is not provided for the following routines. 

PROCEDURE OPEN (F: FILE VARIABLE, TITLE : STRING; VAR RESULT : 
INTEGER ) » 

Purpose : Identical to the sequence 'ASSIGN(F/ TITLE) i RESET (F>; 

PROCEDURE CLOSEDEL ( F : FILE VARIABLE; VAR RESULT : INTEGER ) ; 

Purpose : Close file F and delete it. Used with temporary files. 
Exactly the same as CLOSE followed by PURGE. 



PROCEDURE PURGE (F : FILE VARIABLE); 

Purpose : Delete the file associated with F from the Diskette. An 

ASSIGN must be executed sometime before the call to PURGE so that the 

file control block for F contains the name of the file to be deleted. 

On some operating systems, the file may be required to be closed 

before this procedure can function properly. In this case CLOSEDEL is 
a useful procedure. 
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APPENDIX F: Player/Missile Demo Program 

The Player/ Missile Demo program may be entered using the ATARI 
Program-Text Editor and used as an example for modular compilation and 
use of the built— in graphics and sound procedures. Compile each of the 
modules separately (PMDEMO, PMMIS, PEEKPOKE, PMSND > . Then link these 
modules together along u/i th the Graphics and Sound Library (GRSND). 
When the linker responds with the asterisk repond with the following: 

D2: PMDEMO, D2: PMMIS, D2; PMSND » D2: PEEKPOKE, GRSND. PASLIB/S 

Once linked together you may execute the program using the "Run" 
command. A joystick is required to move the player and fire the 
missile. 
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PROGRAM PLAYER /MISSILE (INPUT, OUTPUT) I 
(* 

This program, written in Pascal, demonstrates the p lay er /mi ss i 1 e 
capabilities of ATARI Pascal. It is based on the p lay er /miss i 1 e 
demonstration program written in BASIC. Error checking has been 
implemented so that the player does not cause system crashes when it 
goes cff the screen. The player is held just off the visible screen 
until the input from the joystick changes its position to a point on 
the visible screen. In addition a visible missile will be fired wh en 
the button on the joystick is pressed. Also implemented are sounds 
associated with the movement of both the player and the missile. 

Four modules must be compiled separately and then linked together to 
form the executable object file. These modules include PMSOUND 
<D2: PMSND. PAS), PEEKPOKE ( D2 : PEEKPOKE. PAS), PMMISSILE ( D2: PMMI5. PAS) and 
program p lay er /mi s s i 1 e (D2: PMDEMO. PAS). 

The executable file is D2: PMDEMO. COM and can be run by typing " R 11 in 
the Pascal monitor. A joystick is required for program execution. 
The player will respond to the joystick by moving vertically, 
horizontally, and diagonally. The missile is fired by pressing the 
button on the joystick. Both the player and the missile may be moving 
s imultaneously. 
*> 

TYPE 

SCRN_TYPE- C FULL_SCREEN, SPLIT_SCREEN ) ; 
CLEAR_TYPE=( CLEAR _SCREEN« DO_NOT_CLEAR_SCREEN) ; 

VAR 

PMBASE, UPLAYER-MISSILE BASE ADDRESS* ) 

Xi ( *P LAYER AND MISSILE HORIZONTAL POSITION*) 

Y, (*PLAYER VERTICAL POSITION* ) 
MISY, (^MISSILE VERTICAL POSITION* ) 
A: INTEGER; 

FIRED: BOOLEAN; (*FLAG SET TO TRUE WHEN MISSILE FIRED, RESET WHEN 

MISSILE HAS MOVED OFF THE TOP OF THE SCREEN* ) 

EXTERNAL PROCEDURE INITGRAPHICS ( MAX_MODE: INTEGER); 

EXTERNAL PROCEDURE GRAPHICS ( MODE: INTEGER; SCREEN; SCRN_ TYPE; CLEAR: 
CLEAR_TYPE)i 

EXTERNAL PROCEDURE 5ETC0L0R (REGISTER, HUE, LUMINANCE: INTEGER); 
EXTERNAL PROCEDURE SOUND (VOICE, PITCH, DISTORTION, VOLUME : INTEGER); 
EXTERNAL FUNCTION ST1 CK < STKNUM: INTEGER): INTEGER; 
EXTERNAL FUNCTION STR IG ( STKNUM: INTEGER): INTEGER; 



EXTERNAL PROCEDURE MAKENOISE; (*IN MODULE PMSOUND*) 



EXTERNAL PROCEDURE BIGBANG; (*IN MODULE PMMISSILE*) 
EXTERNAL PROCEDURE MOVEMISSILE; (*IN MODULE PMMISSILE*) 

EXTERNAL PROCEDURE POKEBYTE ( ADDR, VAL: INTEGER); " (*IN MODULE PEEKPOKE*) 

EXTERNAL FUNCTION PEEKEYTE ( ADDR : INTEGER): INTEGER; C*IN MODULE 
PEEKPOKE* ) 

PROCEDURE SETPLAYER; 

( -ss-SETPLAYER initializes the player by first clearing out the player's 
section of memory and then initializing that memory with the proper 
values so that the player takes on the shape printed below.*) 
VAR I: INTEGER; 
BEGIN 

(*CLEAR PLAYER AREA IN MEMORY* ) 
FOR I: =PMEASE+512 TQ PMBASE+640 DO POKEBYTE ( I / ) ; 
P0KEBYTE<704# 108); (*SET PLAYER COLOR TO PURPLE*) 
(♦INITIALIZE PLAYER AREA WITH MISSILE SIZE* SHAPE* ) 
I: =PMBASE+512+Y; 

POKEBYTE ( 1 1 153); (*PLAYER WILL LOOK LIKE THIS: *) 
I : =1 + 1; 

POKEB YTE ( I / 189); C* *) 
I: =1+1; (* *) 

POKEBYTE ( 1 , 255 ) ; (* * ) 

I: =1 + 1; (* *> 

POKEBYTE ( 1 1 189); (* *) 
I: =1+1; 

POKEBYTE ( I / 153) 
END; 

PROCEDURE MOVER IGHT; 

<#MOVERIGHT moves the player to the right on the screen by 
incrementing the player's horizontal position register.*) 

BEGIN 

IF X<214 THEN BEGIN ( *MOVE RIGHT ONE COLOR CLOCK* ) 
X: =X+1; (* INCREMENT* ) 

(*POKE NEW VALUE INTO HORIZONTAL POSITION REGISTER* ) 
POKEBYTE (53248, X> 
END (*ELSE HOLD STILL, JUST OFFSCREEN AT RIGHT: ) 
END; 

PROCEDURE MOVELEFT; 

(•tt-MOVELEFT moves the player to the left on the screen by decrementing 
the player's horizontal position register.*) 

BEGIN 

IF X>40 THEN BEGIN (*MOVE LEFT ONE COLOR CLOCK*) 
X: =X-1; ( *DECREMENT* ) 

(*POKE NEW VALUE INTO HORIZONTAL POSITION REGISTER* ) 
POKEBYTE ( 53248, X ) 
END (*ELSE HOLD STILL, JUST OFFSCREEN AT LEFT*) 
END; 
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PROCEDURE MOVEUP; 

C*MOVEUP moves the player up on the screen by moving the player up in 

the player's memory area, *) 
VAR I: INTEGER; 
BEGIN 

IF Y>t THEM BEGIN (*MOVE PLAYER UP ONE UNIT IN MEMORY AND ON 
SCREEN*) 

FOR I;=0 TO 6 DO POKEBYTE ( PMBASE+51 1+Y+I, 
P EEKB YTE ( PMEASE+ 5 1 2+ Y+ 1 > ) ; 

Y; =Y-1 ( *PLAYEF. HAS MOVED UP ONE UNIT* ) 
END (*ELSE HOLD STILL, JUST OFFSCREEN AT TOP OF SCREEN* J 
END* 

PROCEDURE MDVEDOWN; 

(*MQVEDOWN moves the player down on the screen by moving the player 

d own in the player's memory area.*) 
VAR I: INTEGER, 
BEGIN 

IF Y<120 THEN BEGIN 

C*MOVE PLAYER DOWN ONE UNIT ON SCREEN AND IN MEMORY*) 
FOR I: =6 DOWN TO DO POKEEYTE ( PMEASE+512+Y+I , PEEKS YTE 

(PMBASE+51 1+Y+I ) ) j 
Y;=Y+1 (*PLAYER HAS MOVED DOWN ONE UNIT*) 
END ( *ELSE HOLD STILL, JUST OFFSCREEN AT BOTTOM OF SCREEN* ) 
END; 

BEGIN (*MAIN PROGRAM* ) 
INITGRAPHICS(O) ; 

GRAPHICS ( 0, FULL_SCREEN_» CLEAR_SCREEN) ; (*CLEAR SCREEN* ) 
POKEBYTE ( 755, 1); (*POKE OUT CURSOR* ) 

SETCOLOR (2,0,0); (*SET BACKGROUND COLOR TO BLACK* ) 
X: =120; (*SET HORIZONTAL COORDINATE OF PLAYER*) 

Y: =43; (*SET VERTICAL COORDINATE OF PLAYER* > — ~ 

A: =PEEKBYTE( 106) -8; 

POKEBYTE (54279, A); (*SET PLAYER-MISSILE ADDRESS BASE REGISTER*) 
PMBASE: =256*A; (*SET PLAYER-MISSILE ADDRESS* ) 
P0KEEYT£(559, 46); (*SET DMACTL IN OS SHADOW* ) 

POKEBYTE( 53277, 3); (*SET GRACTL — ENABLE PLAYER AND MISSILE DMA TO 

PLAYER AND MISSILE GRAPHICS REGISTERS*) 
POKEBYTE* 53248, X ) ; (*SET PLAYER HORIZONTAL POSITION* ) 
SETPLAYER; (*CLEAR AND SET PLAYER-MISSILE MEMORY AREA* ) 

(* NOW FOR THE MOVEMENT AND MISSILE FIRING *) 
FIRED: =FALSE; (*INITIALIZE "FIRED" FLAG*) 
WHILE 4>2 DO BEGIN 
A:=STICK(0); 

IF AO 15 THEN MAKENOISE; (^GENERATE MOVEMENT SOUND* ) 

( ^-MOVEMENT* ) 

IF A=5 THEN BEGIN 

MOVER IGHT; 

MOVEDOWN 
END ELSE IF A=6 THEN BEGIN 

MOVER IGHT; 

MOVEUP 
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END ELSE IF A=7 THEN MOVER I GHT 
ELSE IF A=9 THEN BEGIN 

MOVELEFT; 

MO YE DOWN 
END ELSE IF A=10 THEN BEGIN 

MQVELEFT; 

MDVEUP 

END ELSE IF A = ll THEN MOVELEFT 

ELSE IF A=13 THEN MOVEDOWN 

ELSE IF A=14 THEN MOVEUP 

ELSE IF A=15 THEN SOUND ( 0, 182, 2/ 0) J 

(*PLAYER IS STANDING STILL, SO MAKES NO SOUNDS* > 
IF FIRED THEN MQVEMISSILE (^CONTINUE MISSILE ON ITS TRAJECTORY* ) 
ELSE IF STRIG(0)=0 THEN BIGBANGi ( *FIRE MISSILE*) 
END; (*WHILE*> 
END. 
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MODULE PNMIS3ILE; 

(•a-The routines in this module handle the firing and flight of the 
missile for the player /missile graphics demonstration program.*) 

VAR PMBASE, X, Y, MISY: EXTERNAL INTEGER; 
FIRED: EXTERNAL BOOLEAN; 

EXTERNAL FUNCTION PEEKB YTE ( ADDR : INTEGER): INTEGER; 

EXTERNAL PROCEDURE POKEEYTE < ADDR, VAL: INTEGER > ; 

EXTERNAL PROCEDURE SOUND (VOICE* PITCH* DISTORTION, VOLUME: INTEGER ) ; 
PROCEDURE MOVEMISSILEj 

(*Movemissile is called by procedure bigbang when the missile is 
first fired, and later by the main program as the missile continues 
its trajectory. The main program calls movemissile until the missile 
has moved off the top edge of the screen and the "fired" flag has been 
reset. * ) 

VAR I: INTEGER; 

BEGIN 

IF MISY>5 THEN BEGIN 

FOR I:=0 TO 1 DO POKES YTE ( PMB ASE+383+MISY+I , PEEKB YTE ( PMBASE+3S4+ 
MISY+I ) ); 

(*MOVE MISSILE UP IN MISSILE MEMORY* ) 
MISY: =MISY-1 (*MISSILE HAS MOVED UP ONE* ) 
END; 

IF MISY<=5 THEN FIRED: =FALSE (*MISSILE HAS MOVED OFF THE TOP EDGE 

OF THE SCREEN, SO RESET THE "FIRED" 
FLAG*) 

END; - ■ --- — 

PROCEDURE BIGBANG; 

( *B i g bang is called whenever the user presses the fire button on the 
joystick. Bigbang launches the missile and starts it on its 
tra j ec tory . *) 
VAR I : I NTEGER ; 

BEGIN 

FOR I: =PMEASE+384 TO PMBASE+512 DO POKEB YTE ( I, ) ; 

( * CLEAR MISSILE AREA IN MEMORY* ) 
SOUND<3, 46, 12, 14) ; ( *FIRE ! ! (BEGIN FIRING NOISE)*) 
POKEBYTEC 53260, O) ; ( *SET NORMAL MISSILE SIZE* ) 
POKEB YTE (53252, X+3); 
(*5ET MISSILE HORIZONTAL POSITION EQUAL TO PLAYER HORIZONTAL 
POSITION*) 

MISY: =Y-1; (*SET MISSILE VERTICAL POSITION EQUAL TO THE POINT JUST 

ABOVE PLAYER VERTICAL POSITION*) 
I: — PMBASE+384+MISY; 

POKEBYTEC I, 3); (*SET MISSILE SHAPE IN MEMORY* ) 

FIRED: =TRUE; C*SET MISSILE FIRED FLAG TO SHOW THAT A MISSILE HAS 
EEEN FIRED* ) 
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MOVEMISSILEJ (*start missile on its trajectory*) 

SOUNDC3, 46, 12, O) (-»STOP THE FIRING SOUND*) 
END; 



MODEND. 



MODULE PM50UND; 



C This module contains procedure ma k eno i se , which controls the sound 
generation for the player's movement. This procedure was put into its 
own mod u 1 e. # ) 

EXTERNAL PROCEDURE SOUND (VOICE, P ITCH, DISTORTION; VOLUME: INTEGER ) i 
PROCEDURE MAKENQISE; 

(♦GENERATE ENGINE SOUND WHEN PLAYER MOVES. *> 
BEGIN 

SOUND (0, 182, 2, 6) 
END; 

MODEND. 
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MODULE PEEKPOKE; pfplc« 
(-This module contains procedures for performing BASIC style rttM 

and POKEs. *) 

PROCEDURE POKEBYTEC ADDR, VAL: INTEGER); 
(* 

PQKEBYTE: BASIC STYLE OF MEMORY LOCATIONS 

PQKE3YTE PROVIDES A METHOD, SIMILAR TO THE BASIC POKE, FOR THE 
PASCAL USER TO SET MEMORY LOCATIONS. 
ENTRY: PQKEBYTE ( ADDRj VAL ) ; (SAMPLE CALL) 
ADDR = ADDRESS TO BE POKED 
VAL = VALUE TO BE POKED INTO ADDRESS 
EXIT: CONTENTS OF ADDR IS NOW VAL 
CHANGES: ADDR (ADDRESS) 
CALLS: -NONE- 

*) 

lJ AR 

PTR: A CHARi (^POINTER TO ADDRESS TO BE CHANGED* ) 
BEGIN 

PTR: =ADDR; <*SET PTR TO POINT AT DESIRED ADDRESS*) 
PTR-:=CHR(VAL) C*PGKE NEW VALUE INTO ADDRESS POINTED TO BY PTR*) 

END; 

FUNCTION PEEKBYTE ( ADDR : INTEGER): INTEGER; 

PEEKBYTE: SIMPLE BASIC STYLE PEEK AT MEMORY LOCATIONS 

PEEKBYTE PROVIDES THE PASCAL USER WITH A METHOD, SIMILAR TO THE 
BASIC PEEK, TO FIND OUT THE CONTENTS OF MEMORY LOCATIONS. 
ENTRY- INTEGERVARIABLE :« PEEKBYTE ( ADDR ) ; (SAMPLE CALL) 

ADDR = ADDRESS TO BE LOOKED AT 
EXIT- PEEKBYTE = CONTENTS OF THE ADDRESS GIVEN BY ADDR 
CHANGES: INTEGERVARIABLE IN THE CALLING ROUTINE 
CALLS: -NONE— 

*) 

^PTR: -"CHAR; ( ■a-PO INTER TO ADDRESS TO BE LOOKED AT*) 
BEGIN 

PTR- =ADDR ; ( *SET PTR TO POINT TO DESIRED ADDRESS* ) 
PEEKBYTE- =ORD< PTR~ ) (*PEEKBYTE "PEEKS AT" AND 
RETURNS CONTENTS OF ADDRESS POINTED TO BY PTR*) 
END; 

MODEND. 



(* 
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APPENDIX G: HELPFUL HINTS 



The following are assorted statements that may prove to be useful when 
using the ATARI Pascal Language System. 

1. Compilation of Pascal programs using Floating Point numbers (REALS) 
requires that the Include file FLTPROCS or STDPROCS be identified 
within the declaration body of the source. In addition the FPLIB 
must be linked with your compiled source and PASLIE. Failure to do 
so will cause your compilation and/or linking to error. Refer to 
the demo program CALC for an example. 

2. Identifiers are significant to only eight characters. 

3. CLOSEDEL can be used with any file so be careful. You may 
accidentally delete something that you didn't expect to. 

4. While standard procedures are built into the compiler) others 
require the appropriate Include files for declaration purposes. 
Check these files to determine if you need them. These Include 
files may be listed on the printer by use of the copy option under 
DOS. 

5. The reserved word "PREDEFINED" allows certain procedures and 
functions to become part of the scope surrounding the program. In 
addition any file parameter is passed as two parameters as required 
by the run— time routines. 
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